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In an attompt: to Increase c.ujino oifictencios. typicaVty. swalt^ 
rotor- stator-nmnim.T clearanccji aro baimj omployed tn curriyit and-ne\^( 
designs. Boraiise of UtH amltho evor present noed-to improve maintenance, 
reliability ajid structural integrity under various modes of operation, 
more sophistiavted analyses tools are required to realistically model the 
tMigino. Hue to the wide spread usage of 4 eneral purpose finite element 

codes in the.. open market, this report* seeks to adapt the pa'ocedure- to use 

in modelling rotor-bearing-stator structure common to the turbine industry. 
The work. outlined io-this report covers the_second phase of work on a thi’ee- 
phaso NASA Lewis sponsorwi research grant on engine dynamic simulation by 
developing strategies which enable theaise of availaWe finite element 
codes. The second phase has concentrated on four major objectives, namely: 
i) Benchmarking JJie elements developed in Phase 1 by incorporation into a 
general ^>urpose code (AOINA); ii) kval nation of the numerical character- 
istics of finite element type rotor-bearing-stator simulations through the 
use of various types of currently available as well as specially developed 
explicit/implicit numerical integration operators; iii) Improving the 
overall numerical efficiency of the rr-ocedure; and, iv) Benchmarking the 
overall approach in several case studies. 
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1. INTRODUCTION 

Due to the need to develop Increased jet-jeagiQfr efiiclencies, typic- 
ally smaller rotor-stator running.clearances._ar6 being employed in. current 
and new designs. This together with the .ever, present thrust-to_j*mprove 
reliability: and. reduce maintenance costs. has generated the need to develop 
a-better. understanding, of: the basic dynamic characteris.t1cs of existing 
new engine configurations^ 

With the emergence. of" general purpose (6P) finite element- (.FE)- codes 
such as ADINA, ANSYS, MARC, NASTRAN, [l.,2] the analysis of the.dynami.Cs. ot. 
general structures has been made_4*eadily available to structural designers 
and analysts. This follows from the fact that the overall FE methodology 
incluoes numerous important-features namelyt 

1) Handles hierarchal structural systems with numerous levels and sub* 
structure ; 

2 ) Handles large deformation kinematics- kinetics; 

3) Acconmiodates general material-properties including anisotropy, non- 
linear elasticity, plasticity, viscoplasticity, etc. 

4) Well, suited to handle nonJ-inear boundary conditions as defined by 
impact, contact, rubbing, and; 

5) There exist numerous comtiercially. available 6P codes with extensive 
element libraries 

Because of such, capacities, 6P- FE codes ace experiencing^ wide spread 
usage threughout the various aerospace and commercial industries 
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Irr spite of its far reachrftg.capabilities._the FE' pro^e<hire has hot 
been extensively employed to analyze, rotor- bearing-stator- 4 ;tructure.. 

this follows from the lack of elements which can model the interfacial 

fields- generic to gas turbines and in general rotating equipment. Specific- 
ally, there is a lack of elements which can properly and efficiently, model 
the interactive force fields originating in roller, bearings, squeete-filni- 
dampers, seals and rub/ impact events, etc.. Toge.cher with these short- 
comings arlses-the difficulties associated with the integration of rotor?. 

bearing-stator..si4nu1ations which, unlike the modal .app-roach say of Adams 
[5] 

, requires the entire set of simulating equations to be handled directly. 
While Guyan type reduction schemes can be employed to reduce the number 
of degrees of freedom of the various linear-substructures, the direct 
integration of the coupled set of simulating equations still requires 
further wo^ik to improve numerical stability as well as computational ef- 
ficiency. This is a direct outgrowth of the highly nonlinear manner in which 
various interfaciat -fields, such as those generated in squeez'e- films and’ 
rubs, behave. 

In the. context of the .‘^oregoing, the basic emphasis of this three- 
year study is to develop as well as extend the FE methodology t(y efficiently 
handle the transient/steady state response of rotor-bearing-stator stroc? 
ture associated with gas turbine engines. Specfany, thU_includes: 

(1) the development of specialized elements which enable the- characteriza- 
tion of squeeze-film dampers, roller bearings,, rubs, impacts, and seals- 
[ 7 ] 

♦ (<-) the benciimarkiny of the elements through incorporation ‘Utto a 6P 

code wherein direct integration schemes are used to generate the overall 
solution; and (3) the evaluation/ improvement of the numerical operating 
characteristics of such simulations. 


.iiiuwnwiwum 
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• The thpust of this report Is to outMtie the second year. effo 4 :*ts a1lned• 

l primarlTy at: 

f) Implaating the squeeze-film damper element- iato a general purpose F£ 
i code (AOINA for testing and evaluation, including such items 

asr 

i 
f 

a). Element computational -^efficiency.; 

I b) Adequacy of the perturbational scheme in. defining instantan- 

eous., stiff ners and damping coefficients of fluid film; and, 

c) Adequacy of difference mesh used, in squeeze-film element -to 

model- i n teracti ve fo rces . 

fi) Determine running characteristics of direct integration approach of 
FE-generated rotor-bearing-stator simulation, including: 

a) Benchmarking scheme; 

b) Establish/improving numerical efficiency 

C-). Establish numerical stability threshold; . 

d) Comparison of explicit vs implicit methodologies of 
direct integration; and 

, e) Determine extent and source of nonlinearity arising in- model. 

in the section which follows, detailed discussions are given on the 
overall implant stwtegy, the governing field equations, the explicit and 
implicit integration schemes as well as the resuTts-of numerical experi- 
ments used to benchmark the operating characteristics -of- the approaclr. 

The appendicies include Tistings of the appropriate coding requir ed t o 
implant the bearing. element into the ADINA architecture as well as its - 
b associated user instructions. Also included is a listing oflxompTementing' 

graphics post processors enabling various views Of rotor trajectories. 
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Rotoc- squeeze ftlra/bearingrStator. simulatlons-are inherently nonrifiear- 
This—is an dutgrowth of two sources namely: . 

1) The inherent behavior characteristic- to-Squeeze films particularly 
during transient situations, and 

ri) Pdtential structural interactions whereijj either large deformation 
kinematics or material nonlinearity tP 1 as ticityl.are excited. 

Because Of Such features, the overaU rotor-bearing-stator simulation musd 
be able to incorporate the various sources of nonlinearity. Additionally, 
to enable- efficient solutions in situations wherein, various of the . model 
components are linear, the overall simulation Scheme must incorporate sub- 
structuring capabilities. Furthermore, since transient problems will be 
considered, such features must be accommodated by the various integration 
algorithms used to solve the governing, model equations. 

the central issue of the modelling requirements ds the need to identify 
the separate sources of nonlinearity which may occur. Having done so. such 
sources can be handled via substruetural procedunes,. Since numerical 
integration is used to solve-the resulting set. the various linear compon- 
ents of the model can all be generated and stored before, time stepping, 
occurs. In this context, .only the nonUnear substruetural components need 

be updated during integration. After this, the-various linear substruetural 

contributions Canbe-eSsembled into the global scheme. This is the ap- 
P*"oach taken for this study. 

Fi-gures 2-1 and 2-2 illustrate the-vartous aspects asLsocie ted with 
the overall flow of control for the foregoing substruetural approach. 
Specifically, Figure 1-1 illustrates-the basic flow of calculations for 
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explicit type S 4 ;hewes^ As cafv be. Seen three basic loops ace-pr'esot 1« 
the logic flow. These are associated jetith the- linear and nonUneac: sub- 
structural components as well as the explicit' integration pi*ocess itself.™ 

For linear structural components, the substruceural stiffness is calculated.., 
and globally assembled outside the integration loop. During integration, 
the reaction forces of such components are obtained simply: by post-, 
multiplying the linear stiffness by the appropriate current deflection. This 
will be discussed in detail in Chapter 4. Such an approach significantly 
streamlines, the calculation flow. For the. nonlinear loop, the nodal 
load due to component reactions must be updated and reassembled during 
each time step of the explicit integration scheme. This also applies to 
the bearing group. 

For the implicit integration scheme, as_&een from Figure 2-2, the 
overall flow is similar, to that of the explicit case but cepuires the addi- 
tional calculation of stiffness and damping matrices associated with the 
linear, nonlinear and bearing components. Again, the linear component 
stiffness and damping matrices are generated and globally assembled Outside 
the iategration loop wbi‘*e the nonlinear and bearing el enreots are constantly 
updated within the loop. 

3. GOVERNING FINITE ELEMEtlT FIELD EQUATIONS 

Assuming the possibility-of large deformation kinematics and kinetics, 

[141. 

the Lagrangian. type equations of motion take the form 

- 3u. 

— (SiL(4iL + )) + o^F„. » p^u, (3.1) 

3aj ' jk' ik 3aj^ '' o oi ^on,tt 

where a^*, i = 1,2,3 are the cartesian coordinates defining. the initial 
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configuration, the 2nd PI ola-Kirchhoff stress -tensor, th& KronecJcer 

delta, pQ the irvUta-t-dens-ity, the-UgraogI an dUplacemeat-CofflpoaentS-, 

^o-i body force, and (1 denotes. tlme-xllfferentlatl on. Based oji_(3J), 

the virtual work principle used to establish the requisite ?E f ormulatiM. 
ri4l 

is given by '■ 




3U 

,(u., + F^,.»dv = 


o'“1 .tt 


)ds (3.2), 


where a( ) is the virtual operator, sR the boundary of R, n.^ the normal 

ri4l 

to 3R and the Lagrangian strain tensor is defined by >- J* 

ral 

Employing the usuaJ shape function approximation we have that 
u(a,t) = [N(a)]m) (3-.i)- 

where [N{a)l is the shape function, Y the nodal displacement and 


In 


u^ = (u ,u ,u ) (3.5) 

1 2 3 

F3 1 

terms of (3.4), Ujj can be recast as ^ 

L - [[B] + \ [B„(V)]tS]]y (3.-6) 

where. £B], [Bo(Y)] and [6] are- defined in Appendix A7 and 

W ^ 


l' = (L ,L ,L ,L ,L ,L ) 
- U 22 33 12 23 31 


(3.7) 


Substituting (3.4) and (3.6) into (3^2) yields the following EE formula- 
tion of the virtual work principle namely 

/(6L^S + fiU^p.u . . + P.E )dv .* 6Y^F (3.8) 

~ ~ 0-,tt Q..a — 


where 


OF POOR QU/\Lirf 


ontciMAi vv’u.Vtt; tc* 
OF POOR Qtt/UJ 1 Y 


(S ,S vS ,s ,S ,S ) 

11 ,t,i 1.' 1.1 


IMI. 

c? 


(3.9-> 

(3.10) 


iSL » [B*].s 


= im + ciyton.HY 


(3.11) 


Now, i^iiico iiY is nv’bitrar'y, (3. ft) roducos to the followifig eKpression for 
a ^iven (dement namely 


/ (p„[Nf CN]V < [BM^s t l■„tNl^,,)(1v • Pj, 


(3.12) 


Note here F strictly defines tite oVemunts contribution to its 
.e 

attaciuuent noiies. . Recastiiui (3.12) in more convenient matrix form yields 
the fol lowiiw ! 3 u';pression namely 


[M,JY + / [B*f Sdv- f - r 

1 R, 


(3.13) 


wherii-the consistent mas-- nuitrix and f^ the body force matrix 


are given by 


ntr 


(n ) ’ / 

% 


(3.14) 

(3. 15) 


To develop an overall simulation of tlie rotor-stator supt'ort structure 
(3.1 3) must be assembled toni'ther w - i . t . h- the interactiive force reprosenta- 
tton of tlio squeeze film dampt‘r and roller bearing combinations.- This 
can be achieved in tv<o diftorent ways evolving out of the requirements of 
explicit or implicit integral ion. 
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For the expl icit-famiula^rion the interacting fluid-farces of- 

the Squeeze— film can be modeled as nodal loads acting.j}n-the. various ap- — 

propriate rotor-stator nodes. This type of- f annul at ion- takes, the ..following 
assembled form namely 


[M]Y + /[B*]^Sdv = - Fb ^ !ext 
R 


(3.16) 


where f ^ denotes potential e^cternally applied nodal loads, ts. the .. 
interacting squeeze-film load, and f the- body, force is givon by 

f = (3-17) 

R 


For this study the loads developed in the squeeze film are simulated 
in the manner described in. Report 1 Specifically, two alternatives 

can be employed: 

i) The pressure profiles modelled by the Reynolds simulation are inte- 
grated over the entire squeeze film bearing surface to yield a 
single force vector defining the overall force occurring in the 
fluid film; or, 

ii) The profiles can be integrated over segments of bearing.arc to 

yield a detailed set of loads defining squeeze film-forces, wherein 
a more detailed analys.is admitting deformations of the bearing 
structure can be accommodated. 

For implicit type formulations (3.16) must be expanded in Taylor 
series retaining solely up to the tangent stiffness and damping expressions. 
Specifically, if we let 

(3.18) 


Y(t + At) V Y(t) + AY(t + At) 
Y(t + At) ^ Y(t) + AY(t + At) 


(3.19) 
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OF POOR QUAUTV 


sucfv that 


1 lY.(t)i|»l(AY(t + At>l| 

(3.20). 

||V(t)|[»||4Y(.t . At)J| 

(3.21) 

then the proper expansions can be taken namely 

L(t + At) 'v L(t) + AL.(t +- At) 

(3.22) 

s(t + At) '\j S(t) + ASXt + At) 

(3,23) 

Fjj(t At) F|^(t) + AEjj(t-+ At) 

(3.24-). 

where- 

AL(t + At) = [B*(Y(t))]AY.(t +.At) 

(3..J5.) 

AS(t + At) = [CKY(t))]AL(t + At) 

(3.26) 

“ CK^(Y(t))]A.Y(t + At) + 

[Cjj(Y(t). Y(t))]AY(t + At) 

Ulzl) 


such that [Dl is the tangent stiffness of the structural partitions of the 
rotor-stator assembly wh41e [Kj^] and [Cj^] are the pseudo stiffness and 
damping matrices developed across the squeeze film In terms-of 

(3.18 - 3.27), (JL16) can. be reduced to the. folJowihg tangent fo.nnulatTon 
that is 

[M]Y(t + At) + CCjj]aY(t + At) + [CK] + [li(jj]]AY(t + ^ = 

- F.(t) + f(t + At) - /[B*fs|dv (3.28) 

-D , R -t 

where 

tK] - /(tGf[S(t)]tG] + [B*f[D(t)][B*-]]dv. (3.B9-) 

R 

such that [S(t)] is a matrix of stress defined at time t. 
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Note for purely elastl4^s4:r;uctruca3_copi(ionents^Dl.defin6s--tbe ia 

called tangsi^t stiffness which is the slop& of the-Stress-strain-sp.ae^. 

In the case vi?here some s^tructural components.~may have undergone some plastic 

deformation, [D] is replaced by [D^p] which-Js the elastlo-plaStic couhter- 

part, A good description of the derivation of [D ] is given by Zienkiewijcz^ 
r3l 

•*. In such situations, (US)l_Ls replaced, by 


Di]Y + [Cp]AY + [[Kgp] + [KpllAY = 


Kit) + f(t + At) - /[B*fs|dv 

R 


-f 


such that 


[Kgp] = /tCGf[S(t>][G] + [B»f[D (t)][B*])dv 
R ^ 


C3..30) 


(3.31) 


Note for situations wherein purely linear structural components are- 
involved, (3.28) reduces to the form 

[M]Y(t + At) + [[K^l+ [Kp]]AY(t + At) = 

- “ /CB^Sldv (3.32) 

R -t 

where here 

[KJ = /[B]^[03C6]dv (3.33) 

R 


For-such situations, [K^J needs to be updated solely at the start of the 
problem. 


4. SOLUTION METHODOLOGY 

The main difficulties in the rotor-stator simulations evolve out of 
the fact that during transient occurrences, the interactive squeeie film 
forces undergo significant changes in direction and magnitude. This trend 


tefids -to-introduce-rather strong changes. and as the. calcula-s..... 

tions-proceed trom time step to time ste|>. The major resylt of th.ts_ls 
that-a perfusion of system harmonics are then^jitroduced in the- problem.. 
hence reducing the stability threshold of implicit integration .schemes. . 
Since explicit schemes tend to-be more stable- in problems, involving a per- 
fusion of system harmonics, as-noted ecuJ-ie.r, we have adopted the.jdual. 
approach of employing both explicit and implicit schemes of. integration .~. 
This-enables us to strike a balance between solution efficiency, versus . 
numerical stability. 

For the current purposes, we have adopted the central difference form 
of explicit operator in th-is context, since 

Y = — — (V(t + 4t) - 2Y(t) + Y(t - At)) (4.1) 

- (At)2 - 

the following explicit time stepping scheme can be developed to solve 
(3.16) namely 

Y(t + At) = 2Y(t) - Y(t - At) + (At)2[M]‘\f| + I - fb I ■ 

;[B*fs[dv) (.4.2) 

R ~t 

Note in (4.2), F. | and /[B*]"*^S|dv are updated each time step. 

'°X R -t 

For rotor-stator strjjcture involving purely linear media and small. 
deformation kinematics,, the following simplification can be employed that ISu. 

/[B*]^S|dv * /CBfCD}[BldvY(t) (4.3) 

R n R 

where [D] is the material, stiffness associated with-the typical Hoohean 
constitutive law. In terms of (4.3) i (4.2) reduces to the following form 


ofjscirjAi. iVv.-;;; ts 

OF POOR QUALITY 


PA' V:- Vi 
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Y(t + At) = 2Y(t) - YU - At) + Ut)=^[Mr\fl + 

- I - 


(4.4) 


.ext. I Lb. .j. 


where [K^] is the constart-t stiffness matrix defined. iy 

[Kj - ;[Bf [0][B]dv 
R 

As can-be-jleen from (4.4) » the only terra requiring. updating on the right- 
hand side is F|^ the interactive squeeze-film force. Hence> apart from 
requiring sraall At». (4.4) represents an architecturally very strearaUned 
algorithm to employ in rotor-stator simulations. 

For Situations wherein the rotor-stator structure involves both linear 
and nonlinear components, the overall calculations can be substructured 
In this context 

;[B*]^Sldv = / [B*]^Sdv +/ [B]^[D][B]dv Y(t) (4-6) 

R "t Rj^ 


where 

n o (4.7) 

R = R, Rn 

such that and R^^ are the regions defining the linear and nonlinear 
component zones- respectively. In the context of (4,.6), (4,2).cj.n be 
cast as-follows naraely 

Y(t + At) = 2Y(t) - Y(t - At) + (At)2CMrhf I + 1 - 

F. I - / [B’^l^Sldv - [KjY(t)) 
t R. n 


where here 

[i] = / [Bf [D][B]dv 
^ R„ 


(4.9) 
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CVHV^i 
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u 
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The overall flow of calculations associated with the foregoing, explicit 
scheme is given Jn Figure 4.1. 

For the implicit scheme, the Wilson e Newmark.0 methods 

will be employed to. integrate the tangent' formulation. To Start the - 
development of the requisite algorithms, (3.28) is recast in a more appro- 
priate- form namely 

[M]Y(t+x) + CCjj]Y(t+T) + C[Kl±Il<jjyAY(t+x) = 

- F. (t) + [C.]Y(t) + F(t+T) - /[B.*]S|dv (4.10) 

^ ~ ~ R .'t. - - - 


or more simply 

[l4]Y(t+x) + [C^]ht+x) + [K*]AY(t+x) = F*(t+x) 

where 

[K*] = [K] + (4.12) 

F*(t+x) =-F.(t) + [C.]Y(t) + F(t+x) - ;[B*]S|dv (4.13) 

.D D , - R ~t 

Considering the Wilson e method firsts using the usual linear acceler- 
ation assumption, it follows that the velocity at t + At takes the form 

Y(t+x) » Y(t) + I (Y(t+x) + Y(t)) (4.14) 

similarly 

Y(t+x) * Y + xY(t) + (Y(t+x) + 2Y(t)) (4.1S) 


Employing (4.14,_4.15) in_conj unction with (4.10) yields the following 
expression for Y(t+x) namely 

AV(t-^r) = [K^]‘^F*(t+T) + [M]( f Y(t) + 

2Y(t) + [Cjj3(2Y(t) + I Y(t)) - CyY(t)} 


(4.J6) 
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where 


[Kj] = [ fr tM-] H- f [Cjj] + [10 + [K^ll 

(4.17). 

Interpolating in the manner of Wilson we-let t = 

0At(e>iy so that 

YCt+At) = (l-^)Y(t) +^Y<t+x) 

(4.18) 

Y(t+At) = Y(t) +1^ CY(t) + Y(t+t)) 

(4.19) 

Y(t+At) = Y(t) + AtY(t) + -4^ (Y(t+At) + 2Y(t)) 
»«• — *• 

(4.20) 


Not6,_as per Wilson to yield a stable solution e> 1.37 must 

be employed. For our purposes, the value of © = 1.4 is used. In emp-loying 
equations (4.16)_and (4.18 - 4,20), it follows that the dynamic stiffness 
matrix [K^] must be updated and reinverted each time either [K], IK^} or 
[C|^] is reevaluated. 

to establish the requisite algorithms for the Newmark method the 

following approximations on velocity and displacement are employed namely 


Y(t+At) = Y(t) + AtWt) + Y(t) + 


a(At)2(Y(t+At) - Y-(t)) 

(4.21) 

Y(t+At) * Y(t) + AtY(t) + 5At(Y(t+At) - Y(t)) 

(4.22) 


such that for-linear s-ituations, it has been found-that for unconditional 
stability, 5.^ ^ anda> ^ (6 + Solving (4.21) and (4.22) for 

Y(t+At) and Y(t+At) in terms of AY(t+At) yields 

Y(t+At) = Y(t) + (AY(t+At) - AtY(t) - Y(t)) (4.23) 

' ' a(At) *■ 


and 
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iYU+At) = AtV{t) + ^ (A^t+At) - AtY(t) j^X). (-4,.24i 

To obtain AY(f+At) »_ecnploy1ng (4.2-3 and 4.24) in conjunctton. wlth-(.4.30.) 
yields 

[M](Y(t) + -1— (AY-(t+At) - AtY(t) > Y(t):.) + 

o(At)l ~ ^ ’ 

[y(Atf(t) + ^ (A-Y(t+-At) - AtY(t) • -^ Y(t)).+- 

[K^]AY(t+At)- = F*(t+At)^ (4.25) 

Solving for AY(t+At) we have that 

■■AY(t+At) = 

[ ^ D)1 H- jff Cc,] * [K.]]-’( F*(t*u) - 

a(At) 

[M](Y(t) - — (AtY(t) + Y(t)L) - 

a(At) 

[C|,](4.tnt) - (4tV(t) + Y(t))» (4.26U, 

As with the Wilson scheme, it follows that the..dynamic stiffness appearing, 
in (4.26) must be updated and reinverted each, time either [K], [K^^] or 
[Cjj] is. reej^aluated. This is clearly Seen from the overall flow of control 
depicted in Figure 4.2. 

5. AOINA BASED BEARING IMPLANT ANO ASSOCIATED GRAPHICS POST PROCESSORS 

To- benchmark the approach developed Sections 2-4 the appropriate 

general purpose finite element code had to be selected. As noted in the 

first year report the ADINA code-was chosen for this purpose. This 

follows from the fact that it has the requisite features required for rotor- 

FT gi 

bearing-stator simulations. These include * **: 
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i) Linear--and nonlinear sutistcucturlng features; 

14) An extensive element library^— 

iii) Capability, to handle kinetic*. kinematic, and ma.tepia1 nonlinearity.; 

iv)..Expl’iclL and implicit, integration loops; 

v) Simplified I/D featuces; . 

vi) Accessible code architecture; 

vXi) Extensively benchmarked; and_ 

viii) Requisite portability. 

In terms of the_squeeze film, damper element noted in Report T 
extensive modifications were introduced into the. ADINA code. These modi- 
fications were made general enough so as to handle rotor’-bearing-statojc. 
simulations Involving any number of rotors and associated squeeze film 
damper elements. Recalling Chapter 4, the program has two available 
solution procedural loops, namely either explicit or-Jmplicit 

Since extensive amounts of data are generated during a typical run, 
graphics post processors- have also been developed to simplify outpot 

evaluation. .These include-both-2-D as.4vell as 3-D plotter schemes The 

2-D processor enables the plotting of: 

i) Bearing/rotor trajectories at a given station; 

ii) Stator trajectories;. 

iii) Clearance histories at a given bearing station; as well as, 

iv) Force, velocity and acceleration histories at-given bearing stations. 

The 3-D processor enables the plotting- of isometric views of the rotors.— 
trajectories. 

For convenience, Appendicies 2=5 give detailed discussions and- list- 
ings of the ADINA modifications and graphics post processors, included 


- -r;. t 


■r. — r.V' u^W. 
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are- extensive instructions on user I/O of bo4;b— tt(6 ADINA Bearing Code and 
the associated graphics routines. Specifically: 

1) Appendix 2: I/O instruction on modified ADINA code enabling. r(itQr- 

bearing-stator simulations; 


ii) Appendix 3 
iii) Appendix 4 
iv) Appendix 5 


Code llsti-ng of ADINA- modifications; 

Code listing and I/O inst-ructions for 2r-D plot-routine; 
Code listing and. I/O Instructions for 3-D 


Note the bearing modifications Incorporated Into ADINA were. deveJoped So 
as not to disturb the I/O flow— Hence, apart from required bearing-data . 
(film properties, clearances, etc.), the standard ADINA I/O remains 
intact For specific details, see Appendicles 2-5. 


6. NUMERICAL OPERATIONAL CHARACTERISTICS 
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As noted earli£.f, this section will dete^:wd^e the numdr-ical opera- . 
tional characteristics of the direct- Integration abroach of fE_gene= — 
rated rotor-bearirrg-stater simulations. This will include such Items 
aS; 

a) Benchmarking; 

b) Comparison of explicit vs. Implicit methodoT ogieS- of direct 

integration;, aiwl - 

c ) 0-einonstration- problems . 

d. 1 . .. Benchmarking- 

To benchmark tbe-overall procedure, a simple lumped parameter 
direct Integration scheme was developed.. This approach was used 
to check the accuracy of. the FE generated scheme involving the ADlNA 
"implant". As the first exajnple of such benchmarking, consider the 
system-defined in Fig. (6.1). The material and geometric properties 
associated with the dual ported squeeze film damper bearing employed in 
this and the following sample problems are defined by 

Nominal diameter = 6 inches; nominal length = 1.2- inches; 

-5 

clearance = 1. Inch; viscosity = .1*10 ; 

film rupture pressure = 15 psia; 

0 = 90®; 0 = 270®; P = 15 psiv P =55 psi. 

1 1 2 

Note as with current practice, the bear1ng_used in the simulation has 
no centering spring. In terms of this system,. Figs. (6.2-6.10) illustrate 
various aspects of the validation. Specifically., the sets of results 
given by F1gs._ (6.2-6.4), (6. 5-6. 7), and* (6.8-6.10) define checks Involving 
re«;ppct1veTy the Newmark Wilson and central difference 




operators. In th-ls way, both the implicit and expliptt schemes-^re 

treated. In each of. the compari&oni, „tJlre6 different aspects oCrOto«=^ 
bear1ng.-statoti-behavlor are depicted specifIcaUyr 

a) Rotor dtsplaceme-n-t trajectories; 

b) Stator displacement trajectories; and, 

c) „. J^elative rotor orbit. 

For the present purposes, while extensive benchmarking, was under- 
taken, for convenience, only the case of. mild load-imbalance iS-depicted. 
Note,, due- to the complexity of the various trajectories, comparisons, bet- 
ween the FE and benchmark-ing schemes are given sol ey foe the relative 
rotor ortits. These are shown in Figures (6.4), (6.7), and (6.10),. .As 
can be Seen, for the- given At steps chosen, good comparisons were ob- 
tained by both the Implicit and explicit schemes. Such benchmarking was 
obtained over- a wide range of rotor speeds and load imbalanceJevels. In 
all cases, good accuracy was yielded. 

Similar benchmarking was also performed for multibearing-rotor-stator 
simulations. Note, so long as At was kept small, good accuracy was ob- 
tained- over a wide range of- system variables. 

goQlpa/ison of Explicit - vs. . - Implicit Methodologies of 

Integration 

For problems involving few degrees of freedom,, it was. found that 
for a.glven accuracy, both the..4mpl1cit and explicit schemes required 
about the same- overalT-computaUonal times. This follows from the fact. 

that for "small problems" the architectural overhead assoc iated-^^ith the 

implant strategy progranming dominates over the relativ.e algorithmic ef- 
ficiency. Note for transients Initiated by rather severe imbalance loads. 
It was found that the Implicit scheme proved to be more sensitive to the- 
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choke o^-t1me step size. Interestinglii. such sensitivities wece fooud- 
te occur for problems with snaTT as well, as largd numbers of degrees o-f 
freedom. After perfoming seAieral. parametric studies, it was found, that 
during. the course of a typical transient,_p.artiGularTy involving a severe 

loading., the tangent properties of the fluid film undergo iflajoinxhanges. 

Because of this, a perfusion of system-harmonics are introduced into 
the transient response as the tangent fluid film properties vary.. Note, 
this, behavior is. intrinsic, to the fluid film and hence, is inaependertt-ef 

the number-of degrees of freedom- of the rotor-stator. model . Such pco.. 

perties tend to reduce the stab il.ity threshold of the implicit Scheme 
which i-s best employed when only a few harmonics are exc.ited. for pro- 
blems invol\cing 1 arge Jiumbers of degrees of freedom, the sensitivity of 
the implicit scheme coupled with the required continuous updating and in- 
versions of the dynamic stiffness tends to reduce the running efficiency 
of the procedure. 

In contrast, the central difference approach tends to be less sensi-* 
tive to such tangent property fluctuations. This-is true so Tong as the 
resulting family of harmon4cs is bound by the spectral characterktics of 
the rotor-stator system... Because of -this, similar At can be employed by 
the implicit and explicit scheme. In this context, the explicit scheme 
is somewhat more computationally efficient than the implicit approach. 

This follows- from the fact that no continuous inversion is require.! by 
the explicit scheme. 

6*3 Demonstration ProbJems 

To demonstrate various of the-capaeities of the ADINA imfUant strategy, 
the results of several example problems will be cons-idered. This will in- 

volve single artd multiple bearing problems with various types-of-ioad 
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InibivUnco histories, impact events, and rotor spoc4ds-. For e^wmple, 
in terms of the-single bcarin^-S^^stem given in Fig. (6.1), Figs. (6.11 
6.13), illustrate various aspects of the response bist or-ies-t o- an- im- 


balance load which is applied as a ramp function in time. As this 
loading is more severe than that applied in Figs. (6.-2_- 6.10),. the- rotor 
tends to fill its c4 ea ranee circle as seen-tn Fig.. (6.13). 


If the same System is subject to a undirectional impulse, as migHt 

X. 

be expected, from a rough landing, Figs. (6.14 - 6.16) illustrate the as-- 
sociated response history. By comparing Figs-. (6.11,_6.1.2> with (6.14, 

6.15), the effects of the impulse can. be. clearly seen from the-ovali zing 

of the rotor and stator trajecLtpries. This is directly due to the direc= 

tiOnal characteristics of the impulse load. Note, comparing Fig. (6.13)- 
with (6.16). we see that the rotor orbits are essential ly-unchanged by 
the presents of the shock load. Hence, it follows that- the squeeze film 
damper has essentially no effect on mitigating the worst aspects of uni- 
directional shocks, when large load imbalances are involved..- 

For the current problem this is a direct outgrowth ofthe-fact that 
when large orbits occur, the oil film being thin tends to have very high, 
tangent stiffness properties. Because of -this,, the squeeze film_damper 
does little to filter or dampen the exciting load. In this context, such - 
damper bearing systems-.will have only a-small effect on mitigati-ng the. 
severity of maneuvering. and landing loads on rough ruaning engines.. 

The next series of examples pertains to the rotor-bearing-stator 
system defined in Fig. (6.17). For this system only one squeeze film 
damper is employed. To simulate the shaftirig, the beam-elements available 
in the ADINA system are utilized.. Note, the mass effects are handled via... 
the lumped parametGi oproach. The series of figures given by (6.18 - 
6.20), (6.21 - 6.23) and (6.24 - 6.26) respectively illustrate the effects - 
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of Increasing the severity of loading Ofl the dynamic response of multi- 
bearing problems. As can be seen by examining the- progression of figures 
defining the rotor/stator displacements and the rotor orbit_ increasing 1-y 
stiffer squeeze film damper responses are excited. Tnis-is cleajily seen 
from the wide rotor orbits which occur. Note, as the load is further 
increased, the rotor stator trajectories become "locked in". 

The next series of figures namely- (6. 27 - 6. 29), -illustrate the • 
effects of suddenly applied load imbalances.. Since the rotor^peed con- 
sidered is high, only a smalLportion of the clearance circle is filled. 

This follows from the fact that due to the rather rapid changes in orien- 
tation of the exciting load, the fluid does not have sufficient time to 
recirculate. Because of this the rotor is supported by severe velocity- 
gradients which are only in a cIjosb neighborhood. Hence, the pressure 
gradient generated by. the -inlet and outlet ports of the squeeze film de- 
vice causes the rotor to settle in the direction of the low pressure port. 
Note, as the rotor speed is decreased, increasingly larger rotor orbits 
occur^ Similar trends occur as the level of imbalance is increased. 

As a last examp.1e, consider the system defined in Fig. 6.30. Based 
on this configuration,. Fiqs. (6.31 - 6.36) depict various aspects of the 
response of the system configured with two-squeeze film dampers. Similar 
to the previous- problems, the exciting forces involve imbalance loads 
which are applied in a ramp fashion in time. As can be seen from the re- 
sults depicted for the lightly and heavily loaded squeeze film damper 
bearings, the orbits are respectively small and large. 

Note, based on numerous parametric studies involving systems similar 
to the foregoing, it was found that all the time integration schemes con- 
sidered were stable for situations wherein the fluid underwent only moderate 
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changes in stiffness durim; the-overa 11 cycle. Note, while- a-petfusion 
of haniionics is introduced-Jiy even moderate-changes in stiffness-. So. long.. 
as the resulting spectra are strongly bound by the freqitency envelop. of 
the- dominate system frequencies, spurious ehergy_flow. to higher order 
modes is insignf icant. Specifically, for the implicit scheme, if the 
choice of time step size is gauged to the dominate. higher- order system 
frequencies, then the introduction of- lower order Spectra by the squeeze 
fiim has 1 ittle. effect on numerical stability. In Contrast, if stroftg 
stiffness modulations. occur, then significant amdunts of energy flow are 
introduced the- ever sh-ifting higher order modes. This leads to solu- 
tion instabilities unl-ess small-er At are- introduced. In this context, as... 
noted earlier, since the explicit approach tends to be more efficient for 
a given At, for problenis involving strong vs. weak imbalance loads, its 
use is advocated over the implicit scheme. 

7. SUMMARY 

The main thrust of this-report has been to outline. the second. year 
results of the Engine Dynamic Analysis with General Nool.lneaj^-fJjiite 
Element Codes Grant. This has included two main areas namely: 

i) Implanting the squeeze -ftlm damper element into a general 
pur ose FE code for testing arid evaluation and; _ 
ii) Determining the numerical— characteristics of the FE generated 
rotor-bearing-stator simulation schente. .. 

Due to the generality of the approach taken, the overall implant 
strategy and associated algorithmic schemes has several important features 
namely; 

i) Handles hierarchal rotor-bearing-stator system invoXvdng the 
possibility of series and parallel substructure; hence, series 
and spoolel engine configurations can be handled; 
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ii) Handles large deformaiicMJ-icinematlcs and k1nettcs4 
111) Implant architecture- is well suited to hartdl-e the possi- 
bility of rubbing and contact; 

fv) Due. to the use of the ADINA code, a--w1d6 assortment of— 

element ancUmaterial types tsn be used In a slmulatloni 

v) To enable the Incorporation of new-tiir.e Stepping c^;gorithms, 

both an explicit and Implicit formulation has been incor- 
porated 1n the Implant and; 

vl) 2-D and 3-D-graphics plotter schemes have been developed; to 
enable the post processing of response datautbls includes; 

(a) Bearing/Rotor trajectories; 

(b) Stator trajectory; 

(c) Rotor Orbit; 

(d) Force velocity and acceleration histories at a given 
location and finally; 

(e) The 3-D processor enables the plotting of isometric 
views-g i- the rotor shape at anytime. 
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Figure. 2.2 IMPLICll SCHEME; FLOW OF CALCULATIONS (-continued)L_. 
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APPENDIX 2: USER I/O INFORMATION 

This appendix outlines-a Supplement that must be-empToyed togg.thic^ 
wtth the main "ADINA'‘ manual to-belp model and run general engine dyoamiG 
simul atiens. The .manual -presents the necessary changes and additions ta 
“ADINA" to implement the bearing, element into the -Code. .. 

To simplify its- use-, . the original flow of the ADINA input remainS- 
basically the same. This is achieved by adding a new bearing element-to 
the I/O stream. This- was made possible -by introducing several new features 
to the I/O namely:' 


(1) A master control card; 

(2) A bearing element group; 

(3) A rotating inbalartce loads generator; and, 

(4) Plotting capabilities. 


In what follows, items i). - iv) w i. ll- be discussed in detail. As noted 
earlier, sucli information is to be used in conjunction with the-standard 
ADINA I/O manual. In keeping with the style of that 
discussion is written in the same form. 


A2.1 Master Control Card 

Card 3 in ADINA userls- manual should be replaced by the follow.ing 
card-: 


II MASTER CONTROL CARDS (continue d) - 

Card 3 : Frequency Solution Request Card (215) 

note coluiTins variable entry— 

(1) 1-5 IEIG Flag indicating frequency solution 

mode; 

EQ.O; no frequency Solution 
EQ.l; find lowest frequencies-and 
associated mode shapes 


A2- 


note columns var*iabla entry 

(2) 6-10 IBEAR Flag indicating beaniog dynamic 

simulation^- 

EQi.O; no bearing simulation required 
EQ.T; bearing simulation required 

NOTES/ 

(1) See ADINA user‘s manuals 

(2) The control parameter IBEAR determines if the program 

is to simulate squeeze film damper employing the bearing 
element. If IBEAR equal to 1, then bearing element 
group must be input. 

A2.2 Bearing Element Group 

Bearing elements are members allowed arbitrary orientatino-in the global 
coordinate sy-Stem used in ADINA. The bearing element is 2i-node element 
with only global translational degrees of freedom at each-node. The 
bearing element simulates the squeeze film damper. One of the two nodes 
of the element represents the damper while the second node represents 
the stator. - 

The following input is required for each element group- consisting of 
bearing elements: 

Section A Element Group Control Card 

This card defines the number of elements in this groups etc. 

Section B Element Data Cards 

1. Geometric and fluidic properties-of squeeze film damper. 


The nominal damper annulus diameterv length and radial 
clearance are defined in this section for each bearing 
element. The positions of the dafi^er ports, the pressure 


A2-3-- 

at each port, the Tubri cant. vi sco-S.i ty * and the Cilm 
rupture pressujne are. also defined. Other-variables 
related to the calculations of "the. damper tang.ent 

stiffness and damping matrices are defined in this 

section. 

2. Element Nodes: The nOdal— points of bearing elements 

are input in this part. 

A specific element group defined, by , the above input cards 
is followed by the input cards of another elemejtt. groop. 

A2.2A Element Group Control Card (614) 


note 

col umns 

variable 

entry 


1 - 4 

NPAR(1 ) 

Enter number “lit- 

(1) 

5-8 

NPAR{2) 

Mumber of bearing elements; - 
GE.l 

(2) 

9 - 12 

IIP AR< 3 ) 

Enter the number 

(3) 

13 - 16 

NPAR(4-) 

Element birth and-death 
0 pd i on 

EQ.O elements are ac-tlve 

throughout the-solu^ - 
tion csoe note 3) 

(4) 

o 

CM 

1 

NPAA<5) 

Element type code;. 
Enter the number "3— 

(5) 

25 - 28 

NPAR(7) 

Maxinrum number of nodes used 
in any one element; 

Enter the number "2" 

NOTES/ 

(1) 

BEA111N&. element ’numbe 

jps in each group begin with 


one ( 1 ) and 

end with 

the total number of elements 


in the group. 
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(2) The panaineter NPAR(3 ]lJLs ased to help, the prograift 

to 90 through th 6 proper execution path.. 

(3) The variable NPAR(4) i dent i ti es-wh 6 ^the.r_the ele- 
ments of the element-group are— axttve throughout 
the solution. -NPAR(4) can take di ffereat. modes . 

For the- preserrt time, it takes the value 0. If 

NPAR(4) .EQ. Ov the elements are active throughout 
the solution. 

(4) The variable NPAR(5) defines the type of tlie element 
used in this element group. Currently, it only 
takes the value " 3 ". 

(5) NPA-R(7) limits the number of nodes that can be used 
to describe any bearing element in this element 
group. 

A2.2B Element Data Cards 

fisgmetr ic and Fluidic Properties of Bearing Element 
The necessary pre-selected geometric parameters of the dampej’ 

is read in this section. This includes the a-rmulus diameter 

of the damper, the bearing length, and the bearing clearance^ 
The oil properties (e.g., viscosity and pressure rupture) 
are also read. The element selection, stiffness matrix for- 
mation, and the damping matrix formation options are input 
in this section also. 




pill ii« piiwpifii i,iijipbii|p.im^ 
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Ca r d 1 ; 

(rio.efio 

.0) 


note 

col umns 

varl able 

on t ry 

0) 

1 - 10 

K 

Bear leg element number; 
GE.l and- LE.NPAR(2) 


11-20 

BO 

Nominal bearing... annul ul 
cU aroeter- 


21 - 30 

BI 

Nominal bearing length 


31 - 40 

Be 

Bearing annulus radial 
clearance 


41 - 50 . 

Vise 

Bearing 1 ubricant .v1 s* 
cos i ty 


51 - 60 

PVAP 

Film rupture absolute 
pressure CE5IA) 

(2) 

61 - 70 

THl 

Position angle of lubrlr 
cant-port-l (degrees) 

Card 2: 

(3fl0. 0,615) 


note 

columns 

varl able 

entry 

(2) 

1 - 10 

TH2 

Position angle of lubri- 
cant port- 2 (degrees) 


11-20 

PBl 

Specific boundary pressure 
at port-1 (PSIA) 


21 - 30 

PB2 

Specific b 0 und a ry p re s s u r e 
at port-2 CPSIA) 


31 - 35 

NGRID 

Number of f 1 nite-dl fference 
grid points per daiirper 
(odd) 


36 - 40 

NS^LN 

Solution type;. 


EQ.l Tong-beafiag; solution 
EQ.2 short-bearl ng solu- 
tion- 

EQ.3 Eourier-Sories. 2-D 
convergent solution 

NPORT N-umber of lubricant ports ^ 

GE.O and LE.2 


41 • 45 


ORIGINAL- FiiCiLb'- 
OP POOR QUALITY 


AZ=£ 


Cft^d 2 : (3flO.O»£UJ cAo-tlflued . . . 

note columns var i al^lje. _ enJ:.ry 

46 - 50 NFILM Nuniber of. identical 

an-nul i fon Jtbo tiOJirlxLg 

51 - 65 KQfK Bearing, eioiflent stiffness 

matri X forraatien. o^tion 4 . 
EQ:, 0 . no- stiffness reforio- 
a-tioru is perfo»?med 
EjQ^T stiffness- reforma- 
tion is performed . 


56 - 60 — — ICdEG" Bearing element damping, 

matrix fojf^mation option; 
EQ.O no damping- matrix 
formation is per.- 
formed 

EQ.l damping matrix is — 
performed . 


NOTES/ 

(1) Elements most be input in increasing element number 
order. If cards for elements (M+1 », M+2’, ... ,W+J.). 

are omitted, these "J" missing elements can be gen- 

erated (n the same way as ADINA does. 

(2) The- position angles_of lubricant ports must be In- 
put in degrees and are measured as s-hown beldw: 



PORT-2 PB2 




I 

j A2-7 

A2.2B.2 Elentfent Nodes 

f 

Following the previous beac-tng Information^ each ele4h64U' — 

j nodes and their degrees of freedom are inp^ut- The deyrees 

of freedom -of -t4ie nodes which represent. the bearitlg element 

may be dif-ferent from those defined in master control card 
^ number "1“, Accordingly, the degrees of--. freedom of the 

I 

bear.ijjg el ement- nodes are redefined as applied to this 
olcinont i full vidua 1 ly. 


Card 3: 

(1514) 



note 

CO 1 umns 

variable 

entry 


1 - 

4 

M . 

Bearing element, number; 
G2.1 -and LE. N£AR(2 )l 


5 - 

8 

I5LD 

Number- of nodes to de- 
s^cribe this elemejat 


g ., 

12 

KG 

No de- gen era ti o-n 1 ne reme nt 
used to comp-ute the aode 
number for missing ele- • 
ments ; 

EQ.O default set to "1“ 

0) 

13 - 

16 

I DO.FB ( 1 ) 

Rotor . jiode X-transl ition . 
code.; 

EQ.O: admiss.ible 

tQ.l: deleted- 

0) 

17 - 

20 

ID0FB.(2) 

R'otor node Y^-translation 
code 

0) 

21 - 

24 

ID0FB{3) 

Rotor node Z-translation 
code— 

0) 

25 - 

28 

ID0FB(4) 

Rotor node X- rotation 

code 

0) 

29 - 

32 

IDOFBU) 

Rot<>r node Y- rotation 
code 

(1) 

33 - 

36 

ID0FB{6) 

Rotor node Z-rbtation 
code 


f ' 



r 






!• .1 




h\ 


\:> 


f 

,' i- 




ki: 


' ( 






(1) 

37 ^ 

40 

r00FB( 1 ) 

g.)— . 

41 - 

.44 

IOOFB(2) 

(1) 

45 - 

48 

ID0FB(3)- 

(1) 

49 - 

52 

ID0FB(4) 

(1) 

53 - 

56 

ID0FB(5) 

(1) 

57 - 

60 

ID0FB(6) 

(1) 

61 - 

64 

IPLOTE 


Car.d. 4 ; (21 &) 

note columns variable. 

(1) 1-5 N0D(.l.) 


0 ) 


6 - 10 


N0D(2) 
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Card 3; (1514) centinued. .. 

nbte columns variable- entry 


S-tator node X-tran^l atlon 
codb V 

EQ;-cO-: a-djrtl SSibJb. 

EQ.l: deleted. 


Stator node lUicanslation 
code - . 


S-ta-tor node 2- transiablon 
code 


Stator node X-ro-tatlon. 
code 


Stator node Y- rotation 
code 


S ta tor node Z^uuxt a.t 4 o n 
cod'e 


XontroT parame-ter -for- 
s^.vin^ bearing; reS-ponses 
for fu-tore -plotting ; 

EQ.0: beard ng nes ponses 

are nO-t saved 
responses are seved 
on tape- to be- used 
by post- processor 2^ 
and 3^0; plaiting:, 
programs 


EQ.l 


entry 


6-lob a 1- node number defin- 
ing tbe ROTOR of the beering 
element (nodal point 1 ) 


Global node number defin- 
ing the STATOR of the bear- 
i ng e I emen t ( nodal po i n t 2 ) 


, 1 





NOTES/ 


(1) The bea-rlog element ts a two node meiubee On^ aode 

defines the rotor (sfvaftj, of ..the ervgine. ajjd tne.. 
other node defines tbe-stato-r (housing) of th.e bear- 
ing— [during the in^ui of tie bear1n.g no4es and 
the4r degrees of freed.oni, the noJe defining the WJTOft 
must come. first (nodal point 1), 


A2 . 3 Rotating Imbalance Loads 

In bearing problems, the.. fol lowi ng card must be.. used to Id-, 
put the_rotet1ng loads data. It followLS— ADINA regular con- 
centrated loads Input cards. 

Con ^ntrated Rotating Loads Oata . ( 3 U ,.2f TO.. 0 ,1 S , 2 F 1 0 . 0 ) 

entry 

Node nAimber to w.h1ch th.1s 
rotating load Is applied; 
GE.l an.d..LE. NUMNR 1 

Degrees of freedom, number 
far this load, components 
Enter number "2" 

Time function number that 
d^rlbes the -time dependeojc 
nt) of the load; 

GE..1 and LE. NLCUR 

Function multi pUer used, to 

scale f(t) to obtain the 

load at time "t" 

Arrival time of the forcing 
function 

Mode number Increment used' 
to generate loads at the 
mlsS-ing nodes; 

EQ.O no generation 


note columns vacdabl 

(1) 1-5 NOD 


6 - 

10 

IDIRN 

IT - 

15 

NCUR 

16 - 

25 

FAC 

2 6—* 

35 

APTM 

36 - 

40 

KL 
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Concentrated Rotafing Loads Data ( 31 5 ,2 FI 0 . 0 » 1 5 ^2 F 1 0 . 0 ) 
continued ... 


note 

col umns 

var.iahl e 

- en-try 

(2) 

41 - 

50 

TH 

In.i ti at. phase aJigle of 
rotating imb-alance load _ 
applied at hoide NOD 

(2) 

51 - 

60 

SP 

Rotating spfred of. imbalance, 
load applied- at. node NOD — 
(RAD/SEC) 


NOTES/. 

(1) Input as many cards in this section as. the number 
of nodes wheine rotating imbalance Toads are afiplied; 
Ode card for- each node. 

(2.) The initial phase angle and speed of rotating load 



^(SP) J 


IMBALANCE LOAD P(t) 
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A2.. 4 Plotting Ca-pabill ties 

During tfte 04itput p.hase, the ADJNA flow was Interru^j-ted ta 

s.a V 6 the nec 6-s s a ry. 3ea ri ng. respoas es. on -a ta pe- to be-p.1 o t- 
ted In a separate plot job. Tlie displacement ve.loc.ity. 
acceleration and. bearing force . components of bearing: stators 
and rotors are store^l.. This is done In subroutine “WR1T£'\. 
More details on the plotting capabilities ar£ glvon. In 
Appendices 4 and 5 which list the various plot routines. 
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XXSTgPL IB 
XX 
X X 

XXSySK»« INt 
XXOUTeUT.. 
XX 
XX 


BO 

00 

DO 

DO 

00 


DO 


//MASAPR dob XXXXX»rEiO 

♦ ♦♦ JOBPAR'4 SK iPsYES ►FOHMSslPWO 
// EXeC SAVEiOATASETsCIDATA 

XXSAVE PROC TEMPs‘&6» .OATAS&T®0ATASET.PRlME»2.0«SCNO«y-»ia*y4JL.st^ - 
XX OISPaPASSi STATtJ3=MOO-*»JNlt = SySDA«Fl4_Eal *UABEl.»Sl-* . - 

X X OEN= A*aLX®6l € 0. SPACE=T«K t R£.t PO®0 

0 ^^,lt^.J^t^^t*t*****.***^***J||S^^^^n^*^t*^^********m* 4 ^* 1 |^**■*^^***m*^*’^^:*. 1 ^mJ|^m*■** 1 ^^**Vi*^**.*■^^* 

***■ purpose: PROC to take input CAROS to a TEMPOKAHV O^ASK-FIiE- 

• id: AG 1P0170 AOOIFIEO: 7 JiA. 8i (OEH) * 

*in 0 * 4 ‘*^t*****ili*m**$^** 4 i****.»*-mm******)l‘*****m***** ***** 

XXSAVE EXEC P (iMaAGlPO 171 .RES I 0N=6AK 

DSNaAC AO •CuMPL IB « 0 1 Spa SKR 
OSN* SY S2 .PC 1 L IS »0 ISPaSHR 
O&Na SYS2.X:MP ILEftS^Ol SPaSHR 
SYSOUTaA 

0 SNa SrEHP . 60 A TASE T ,0 1 SP« I S ST A.TUS* 60 1 SP^^^ . V04.*3£«»fcV OL . 

L ABELS ( 6F ILE t 6LA8EL • RE TPO« 6RET PO > . UNI Ta6jUN IT» 

SPAC£=( 6SPACE.(6PRIM£.6SCN0RY) ,RLSE) * 

DCS* (RECFM«Fa^lJ4.£CLa80 »BLK-S1 2£a6BLK« OENa60JiN) 

♦ OENERATEO STATcrtENT 
// EXEC USERPAN .OATASETaSEAR. 

XXUSERPAN PROC TEMPa»f;i.t ,0A TASE TaOATASE T *PRI H£a20 » SCNORY alO ,OcNa4. 

XX V0L3 ».LAB£LaSL . file a 1*01 SPaPASS. StAT US.a^OO« UNIT aSYSOA*. 

XX 8LK=SibO.RETPOaO ►SPALEaTRK 

*.m** ***************** ***************************** ************* ********* 

*** purpose: ALLUiKS ACCESS TO USEK*PANVALET LLBHARY * 

*** INSTAl.ucR: (iARY SPONSELLER MOOIFIEO: 7 JUL At (OEH) * 

» «« 4 k 4 t ♦* A <t a *«««««««*««*« <>«*'« «'**♦«*#*«♦♦ A ***** 

XXGU EXEC PGMaPANAl .REGIUN-aiaSK 

XJISTEPLiB 00 OSNaPAN.LOAOLlB.OISPaSHR 

OSN=US£R *PANVALET»01SPaSrtR 

DSNa&TEMP.60ATASET.UNl T = 6UN1 T.OI SP= tSSTATUSaSO iSP) . 

SPACES ( LSP ACE. (6PRlMu.6SCNORY).RLSE ) .VOuaSERafrVOLa 
OCB=(RECFMaF 9.LHECLaaO.BLKSlZ£a&BLK^OENa60£N) » 

LABELS! 6F ILE . 6LABEL • RE TPOs&RETPO ) 
UNITaSYS0A.SPACEa(CYL,<3-.l .L) ) . 

DCBs (RECFMaP0*i.RH,CLsdO .SLKSXZEs&aLK . DSORUs PO) 

SYSOUTsA • 

SYSOUT-B 

♦ GENERATED STATEMENT 
FORT. DA TAscTsQEAR 

PROC SauRCEa,OtJJaNUOECK<MAPsNU.Lt-STaMu. TeMPs»-66* • 


XXPANOOl 

XXPAN 002 

XX 

XX 

XX 

XXPAN 009 

XX 

XXSYSPR INT 
XXSYSPUNCH 
//SYSIN 
// EXEC 
XXFORT 


00 

DO 

DO 


00 


DO 

00 

DO 


X-X data sETsOATASET. ID=.COO£a£BCOI C.LiUECNTatiO.OiSPsPASS 

************** ******** 0 **^.* ****.***■*************************** *********** 

*** purpose: compiles a fortran program (GI CUMPILERI- * 

*** MOOTFlEO: 16 JUL 30 (ELW-W) * 

«AAA'AAAA AA# AA'A« AAA'AAA AAAAAAAAAAAAAAAAA^AAAA'AAAAAAAAAAAlAAAAAAAAAJAXtAAAAAJiA-- 

PGRsIv,l|i0hJT .R£G10Nal2bK. 

PARMa( • LSOURCE.SUURCL. LOB J. GMAP. MAP. 6L 1ST .LIST .610.10. • . 
•6CJ0E .LINECNTs*,L1nECNT» ) 

OSNsSYS2.FrGlCUMP-,0:SP=SHR 
3YSOUT=A 
v>YSaUT*B 

DSNsfckOAOSET.UNl TsSYSDA. SPACES ( AOO.t 1000 ,200 » ) , 

OCds SLKSl2Es4.00*01SPa( MOO, PASS) 
DSNsLTLKP.GOAlASET.OlSPalOLO .601 SP) 


XXFORT 

uXEC 

XX 

1 

XX . 


XXSTEPLIB 

00 

xxSY sprint 

00 

X XSY SPUNCH 

00 

XXSYSL IN 

00 

XX 


XXSYSIN 

00 

// EXEC GOFDRTU 

xxgofortl 

PRJC 

XX 


XX 


x-x 



1 


G0S17t=l •iBK.EPsMAIf'A.ST ATUSsMUO.Oi SPsPASS .F I LE* 1 . 

L liisoUMMY .PHJGs0UM4Y.LABELsSL.UNJ TsSYSOA .VULs.JE Ns4, 
ijN-l T 4= SA VtO , SYSLIBsOUMMY .TEMPs • &«.* . CCsA.BLKsSI wO , 
OATASETsuArASET, MAPs. DISKS iouMMY. '.pRECsSP. 




mmm^mmrn 


A3-3 


ORIGINAL PnUa i<ii 
OF POOR QUALITY 


XX. f>fUME= 20 .# SCNOrty=-lO*PU(iT=-‘:>UMi4y t * •OUtPUT^f PHEFiXsPuid 

* «« 4t« 4t « « « 4t « « #« « « ««« « >M1 ♦♦ *Jt«*.* * *« *4i ««4i» '*« «.« # » * 

purpose: EXcGU.t£S A FOKtRAM 08J£CT PROGRAM R^SiOlNG ♦ 

*♦♦ LN A OISK PO-S UldRARV. * 

*■**■ OAtS MOOiFlEO: 7 JUU S^l (OEt+) * 

XXGO EXEC. PGM5=4_OA0ER*R£6I.OM=6GaSI 2E .CaMO=( &CC.ET.J., .. 

XX PARM=r»&MAP*MAP,Si2£a&G0Sl2E» EP*&EP* 

xxsyslout oo sysouT=A 

//SVSLlN DO OSN>SL.OADSE.ttOt SPeOi.u> 

OD DSNsSPREF 1X*-.SL0B4 SPROG » .O I SP= SrtR .. 

DD OSNsfrPREFtX*..a.ia*( SPRQG) .DTSPeSHR 


X/SYSLIN 
// 

XxSySLIB 

XX 

XX 

XX 

XX 

/✓FXOlFOOl 

// 

X/FTOlFOOl 

XX. 

//FTO2F001 

// 

X/FT02F0GI 

//FT03P001 

// 

X/FT03F001 

//FTOAFOOI 

// 

X/FT04F001 

XXSAYEO 

XX 

XX 

XX 

XXWORK 

//PTOSFOOl 

X/FTOSFDOl 

//FT06F001 

X/PT06F00I 

//FT07F001 

// 

X/FT OTFOai 
XXPUOtTAPE 
//FT08F001 
// 

//FT09F001 

// 

//Ft lOFOOl 
// 

//Pt^llPOOl 

// 

//FT12F001 

// 

//PT13F001 

// 

//Ft 2DF001 
// 

// 

// 

//SVSIM DO 


DD 

OD’ 

DO 

OD 

DD 


DD 


DD 


DD 


DD 

DO 


DD 


0SN»SYS2.F T.'« ILJ8 *01 SF»*SHR . 

DSN- PL I 0*.G&Y $L IS «Dt SPA^SHR 
D-SNs lMSL •PS3DOD02..&PREGiDI SPaSMR 
OSNi SYS£*E03PGM . 01.3PeSMR. 

DSN£ACAD*SUBLia*OISP«SHR 

DO UNl t®SV30A*0.tSP*(N£W-,DeLSTEl *SPACfi«( CYiL* (3 .3 ) i.* . 
DCs* {ReCFM*V.3S.LRECL»3l52.aLKSl2E»3lS6 .8UFN0«l i 
&OtSK*ONlTsSYSDA *3PACEP( CYL*-( 2*1 LJ . 

OCSs I R ECFM*VSS *EREa-Pl 0 0 0 , BEKSlI 2EF31 36 ). 

DO ONltsSYSDA*OISP*(N£iil*DELaT£)-.$PAC£sSCCYL.,(3,3U * 
OCa* tftECPMi=VaS.LR€CL»3lS2.auCSl3E*3l5S.aJUFNOati, y 
S0ISX.0NEtaaYS0A,SPACEa(CYL..t2 «i ) ) .OC3a*.PTOlFODl- 
DD UN.I T= SYSDA*0 I SP»CN£W. DELETE) . SPACE«( CYL* (.L *14 ) • 
OCa» ( R£CFHa V8S*LR£CL.-3i S2-* 3LKS.l2E«34 SE^SuFMOsl ) 

&0T 3K.UNJL T»SYSOX*.SPACfis< CYL.« (.2 *1 ) ) »D.CaP«»FT04Poat. 

DO UNI-T*SY3DA*0lSP=tNEW*.DELETei *3PACEs(cyL*(3*3)4.* 
OC8»(ReCFM*V3S.LREjCO»3i52.SLKSlZEp31S6 .SOFNOisi i_ 
DUNAM£=SUN1TA. 

DSN=sr£MP*«)ATASET .DiSPa( SSTATUS«-fiDl SP) . UN2t*SUMiT * . 
SPACES C TKK *( ti^RI ME, &SCNDRY) *RLSE>,.VOL*SER*fcVOL*.. 
DCB=!(RECFM*Fa,LREC»,=a0»8LKSX 2E = &aLK»0£N=!S0eNl •_ 

LABELS ( SF ILE • SCASEl > 

&DI SK.UN I T= SY50A ,SPAC£s( CYL , ( 2 UXU DCSs* ,FTO iPOO X 
DO DDNAMEs^SYSIN 
DONA M£=SY SIN 
DO SYSOUT=X 

sysa.ut!sCA**&auTPUT) ,dcb=recfmsPa 

DO UNIT-SysOA.Di SP=tNEVJ, DELETE) .SPACe=s<CyL..(3.3JJ,_ , 
0Ca=(RECFMsV8S#LREa-=3i52,aLKSI2Es3l56 ,auPNO-si ) 
SYSOUTsB 
SPLO T* SYSOOTaG 

DO UNltaSY3OA.*DlSP*<NE4,0eLETE) *3 PACEp(CYL, ( 3*3U* 
OCaa ( RECF MaV8 S. LHECL*3 152 » 8LXS 1 2Ea3 1 S6 ,aUFNOi*lO- 
OO UN ITsSVSOA,DISPe(NSJ» .DELETE) ,SPAG£a( <y L, < i *1 U , 
ocas { RECFM»V3S ►£«£€£* 31 52 . aEKS-1 2£sr3 1 56-.E JPNO»l I. 

DO UNtt*SYSDA.D.l3PatN£W.0SL£TE) . SPACE»( CYL, t3-*3) ) , . 
0Ca=(SECFM*Vd5,Lrt£CL»3I52,aL<3l 2EsJ l 56 .auFNa*I | , 

DD UNXTaSy.3DA,0 iSPaCNtM.DELETEl ,SPAC£as(.CYL. (3,3))-, 
0Caa(RECFMaVaS,LHECL«315C,BLKSl2£*3l5£,aUF4Cls^ ) 

DO UNITaSYSDA*0! SPatNElK,DELETE) , SPACEi< CV L, ta ,3 M ,. 

DCQt« ( R ECFMa Yd S , LReCL* 3152 • OCXS I lE^S 1 56 ,aUFNUal ) 

DO UNITaSVSDA.DISPa(NE)**DELETE) ,SPAC£s{CYL..<3^33 )-, 

DCB* C RECFMi»V3 3 ,lRECLs 3 1 52 ,0LKS2ZEa3 1 ,auPNUal4 

OSNaUScR,LlSTNl,DISPa(Hev»,CAfLG) , 

SPACSat TKX,i I 50,2 2) ►RLS£) * 

UN 1 Ta SYSDA »VOLadE'R aAC AO 0 1 * 

OCSa < RtCFMaFB .aLKSI 2E at 2V60 » LRE CLaSD ) . 

OSNa &SC IDATa^DI SPa( CTLO ,DEL£tE ) 


OD 


DO 


DD 

DD 


DO 


A3-4 


( -• 


CKICJ 


i I- 


IEF^6631 
I t£F653I 
16F0531 
I .iFo53I 
IhF653I 
XEF653I 
lFrb531 
I t:F653l 
ItiFbSJl 
I£F^53i 
ieF653 I 
1EF653I 
IEF653I 
IEF053I 
IEF653I 
IEF053I 
I£F653I 
1EF6531 
IEF053I 
IcFd53I 
I£Ft>53l 
IEF653X 
I cPD^3t 
I £F O D 3 1 
lEFoSil 
I EF653I 
IEF053I 
i£F653I 
I£Fob3l 
I £Fo 48 I 
ALLOC. FOR 
i 72 
1 bl 
161 
16 1 
J£SL 
266 
J£S 2 


ALLOCATcO 

AuLUCAtea 

allocated 

ALLOCATED 

A1_L.0CAT£D 

ALLOCATSD 

ALL0CAT£0 


suQsri ruTioN 

SU35T ITUT ION 
5>J3£TXrUTiaN 
SUtiSTlTuT £JN 
bUOSTlT UTiJN 
SU6ST IT UTION 
substitution 

SU3STIT jTIJN 
SUOSTIT UT ION 
SOdSriTUTION 
SU3STIT UTION 
SU3STIT UTION 
SUaST ITUTION 
SUliST IT UT ION 

substitution 

SUI3ST1T UTION 
SUdSTITUTION 
SUaSTIT UTION 
SU3ST ITUTION 
SUBSTITUTION 
SUaSTIT UTION 
SUBSTITUTION 
SUBSTITUTION 
SUaST IT JTiON 

substitution 

SUBSTITUTION 
SUOSTITUTION 
SOaSTI TUTION 
SUOSTITUTION 
INVALID DliP 
NASAPR 
TO 
TO 
TO 
TO 
TO 
TO 
TO 


OF poof? QUAU‘iY 


JCL — 1) SN= UiC I i>A tA * W SPa i MQD» PASS) . VOl.«Scft - # 

JCL - UASEL=( L«.SL*«ETPaaa> tUHi.raSfSDA, 

JCi. - 3PACE*(TRICr(20^l0)-.KLS£>». ^ , . 

JtL - DCQa(ftECFM=Fa,L.ReCLsdO».ai.lCSl^E^lft&cOENS4). . 
JCL - i>SN=&SBEARajNl TaSyS»A*^f^P«(>iau.PASS)-*. 

JCL - iPACEa(T«K»t20.lO) *-RLS£) *VOLaS£Rs# 

JCL - JCd=(KECF/4=F3»I.RECL*SO»liL(CSl2e»61aO.OeUa4-), 
JCL - LASEL=C L*5L*REtPJaO> 

JCL —OCSa ( RECF »«F a • LRcCLaSO . BLKSi ZE»SJ SO . DSZW-OaPO ) 


PARM = ( 'SOURCE #NOO£CK,»NO.^AP»t^OLlST.. ID. • V 
•EdCOIjC.LINECNfsSO •) 

DSRaS&BEAR»OlSPaCOLOt PASS) 

PS‘+=LOAO£R » REOl 0Na0S0K».C0NDat4 »LT ) . 

PARMa •■map. St Z£a9SOlC. £PaMA|N» 

OSi'iaPLJB.MEU B2 ( AOtNA) , O iSP«s-SHR 
OSN=PLla,MEL.l B2l AO I NA )^OiSP*SrtR 
OSRaPLl B^OUMMY *i>l SPa-SHR 
DSNalMSL.F S3JOJ02*SP .OlSPaSHR. 

UNlT = SY30A.SPAC£a{ CYL.( Z.D ) • 

UMl TaSYSOA*SPACeatCYL»t 2 *l )) .OCBa* •F^TO IFOO-l- 

UNI TaSYSOA.SPACc = CCYL^ta»lS).*UCtia* ,FT0 iF-OOU- 

ODNAMEaSAVED 

0 3l4=SSOAfASET.*0l SPa( MOO.PASS ) . UHl T aSYSOA . 
SPACEst FKK .(20 » 10> »HL3E ) .-VOLaSERa,. 

OCfla ( RECF Map 3 ►LREC L= AO .BLICSl Z£ afe » »0 i.O£Na <, X. 
LAOELad.SL) 

UNI raSYSOA«SPAOEa(CY.L.{2.l ) ) .iXCBa* .FTOlFOOl 

SYSOUTa(A* .} .OCa=RECFMaS-A 

OUMMY.SVSOUTaG 


SAVE 

ST£PHU 


NAS APR SAVE - STEP 


SYSOOOSt 
SYSPR INT 
OUTPU1 
SYS IN 

HAS EXECUTED • 


CUND CODE 0000 


ACAO.COMPL IB 

KEPT 

VUL SER NUSa ACAOQ2. 

KEPT 

SYS2.pl ILIB 

VOL SER NU3= SPOOL2. 
SYS2. CMP ILERS 

kept 

VOL SER NUSa SPUOL2. 
SY3CTL0.VSP0QL2 

KEPT 

VOL SER NUSa SPOOLS. 
JES2. JOUOO 1 37.su 01 03 

SYSOJT 

SYSA1229.TOP1819,RAOOO.NASAPR.C4DATA 

PASSED 

VQL SER NUSa »DRK03. 
JES2. JOBU0137.S 1 0 10 I 

SYS IN 


SfEP /SAVE 
STEP /SAVE 
ALLOC. FOR 


/ start 

/ STOP 
NASAPR 00 


A 1 229. 0 9 IB 
A12C9.JJIA CPU 


04tN 00.41 SEC SRP 


OMIN 00.06SEC 


269 
I 6 I 
I 72 
26E 
166 


ALL'JCATCD 

aclocated 
allucated 
ACuGCATCD 
AULUCAI LD 


TO 

TO 

TO 

Tu 

TO 


STEPLIU 
SYS00064 
PANOD t 
PAN DDL 
PAND09 


ORIGINAL PAGE^ IG 
OK POOR QUALITY 


Aa-5 


IEF237I 

IEF237I 

IEF237I 

IEF142I 

IEF28SI 

IEF28SI 

IEF285I 

lEFaSbl 

IEF28S1 

1EF285I 

IEF285I 

IEF28S1 

IEF2851- 

IEF28SI 

IEF285I 

IEF28SI 

IEF28SI 

IEF373I 

IEF3741 

IEF230I 

IEF2371 

I6F237I 

IEF2371 

IEF237I 

IEF2371 

IEF2371 

1EF142I 

IEF2851 

IEF285I 

IEF285I 

ieF285I 

iEF2851 

IEF285I 

IEF288I 

IEF285I 

IEF285I 

IEF283I 

IEF373I 

IEF374I 

IEF23bI 

IEF237I 

IEK2371 

IEF237I 

IEF2371 

IEF237I 

ie0237l 

IEF237I 

IEF-2371 

IEF237I 

IEF237I 

IEF2371 

1EF2371 

IEF237I 

IEF2371 

IEF237I 

IEF237I 

IEF2J7I 

IEF2371 

ICF237I 

IEF237I 

IEF2371 


M COMO CODE 0003 


JES2 AEELICATED Tii SV3PRINT 
JES2 ALEOCATEt) TU SYSPUNCH- 
JES2 ALEJCATcO TO SYSIN 
NASAPK GO — STEP -WAS EXECUTED 
P AN.LOAOEia 
VOL SER NUSa STUR02 *. 

SYSCTLG.V£r*00E2 
VOL SER NUS= SP00L2. 

USER «PANVAL£r 

VOL SER NOS= ACA002. 

SYS81 229»T09l8l 9 .RAOjOO.NASAPR^QEAft 
V(X SER NOS* *aRK03« 

SYSa i 229*T0918L9 *WAOOOl*NASAPR*ROOOOOO 1 
VOL SER NOSs UKORKOt*- 
JSS2«JOBO3l37.Sa0l.04 
3 ES2 *30 BOO I 37. SO 010b 
3ES2. JOB00137.S 10102 
step /GU / STAftt. ai2L29^«09l3 

STEP /GO / STOP 8 1229*0. 9:1 3 CPU 

ALLOC. FOR NASAPR FORT 
162 ALLOCATED TU STEPLIB 
161- ALLOCATEO TO SYS00068- 
3ES2 ALLOCATEO TO SYSPRINT 
3ES2 ALLOCATEO TO SYSPUNCM 
186 ALLOCATEO TO SYSLIN- 
26E allocated TO SY3IM 

HASAPR FORT *»- STEP WAS EXECUTED CONO COOc. 
SYS2.FTGIC0MP 
VOL SER NOS-s STOR0 3. 

SY3CTLG-VSP00L2 
VOL SER NOS= SPOOL2* 

3ES2.30B00137.S00106 

3ES2.3aB00137.SO0l0/- 

SYS81229 .T0918 I 9.RA 00 0*NA SA PR. LOAD SET 
VOL SER NUS= WORKOl. ^ 

S YSai 229. T09181 9 .RAOOO .NA SAPR.BLAR 
VOL SER NOS= W0RK03. ^ ^ 

STEP /FORT / START &l-229.*09ia 

STEP /FORT / STOP 81229.0922 CPU 


KEPT- 

KEPT 


kept- 

PASSED-. 

deleted 

SYSDUT 

SYSDU-T., 

SVSl>>i 

0(4IN 0a.3-ZSE,C_SRd 


000 a 
kept 

KEPT— 

SVSOUT 

SYSUU-T 

PASSED 

PASSED. 


IMtN 10.0 7SEC SRB 


/VULOC 

:• FUR M4S4RR 

GO 

JES2 

ALLOCATEO 

TQ 

SYSLOUT 

1 6^ 

allocated 

TO 

SYSLIN- 

164 

allocated 

TU 


16 1 

ALLOCATEO 

TO 

SYS00068 

162 

ALLOCATtlD 

TU 

SYSLlB 

164 

ALLOCATED 

TO 


172 

allocated 

TU 



ALLOCATEO 

TO 


172 

ALLOCATED 

TO 


160 

ALLOCATED 

TU 

FTOlFOOl 

20E 

allocated 

TO 

F T J2F001 

26E 

ALLOCATEO 

TO 

FTD3F001 

166 

ALLOCAVED 

TO 

FT J4F 001 

1 66 

ALLOCATEO 

TU 

SAVED 

266 

ALLOCATED 

TU 

WORK 

26E 

allocated 

Tu 

FTOSFODl 

JE42 

ALLOCATEO 

TU 

FT06F001 

26E 

allocated 

TO 

FT07F001 

OMY 

ALLOCATED 

TU 

plottape 

166 

allocated 

TU 

M08F001 

166 

ALLOCATEO 

T3 

FT09F001 


CSlisiWAt. 5S‘ 

OF POOR quality 


lepa^ri 

I£F237t 

LEF237I 

IEF2371 

IEF2371 

IEF142I . 

IEF28SI 

IcF2dSI 

icFaasi 

IEF285I. 

teF 2 asi. 

tEF 2 aSI 

LEF2aSl 

lefzBsi 

IEF28S1 

IEF2&S1 

ISF28S1. 

IEF285r 

iEF288L 

tEF285I 

1EF28SI 

IEF285I 

IEF28SI 

IEF2851 

IEF2851 

IEF28S1 

IEF28SI 

l-£F2dSI 

IEF2851 

IEF285I 

1EF285I 

IEF285I 

IEF285I 

IEF28S1 

IEF285i 

:eF28S1 

IEF285I- 

IEF28Si 

IEF28SI 

IEF288I 

i£F28SI 

IEF^8•5I 

IEF285I 

IEF 28 Sr 

IEF28-5I 

IEF2851 

1EF2-8EI 

l£F285t 

IEF28SI 

1EF285I 

l£P28bl 

IEF2881. 

IEF2851 

IEF2851 

IEFJ731 

IEF374I- 

IEF2J71 

IEF295I 

IEF288I 

t£F2881 

IEF28SI 


166 AUU3CATEO Ta-FTlOF^OOt 
26E allocated VJ FTllFOOt 
26E allocated TQ..FT1 2F001 
1.66 ALLOCATED TO Ft 00 1 
164 allocated to FT 20 F 001 

NAS APR GO - STEP WAS. EXECUTED • COND- CODE 
U ES 2 • JD BOO 1 37«SO 0 lOS- 

SYSdl229«T09lSl 9.RA000.NASAPR.L0ADSET- ... 
VOL SER NOSs WORKOt • 

PL IS •MEL 102 

VOL. 8ER NUSs ACADOl* 

SYSCTLS.VSPOOL2 
VOL SEN NOS» SP0OL2* 

SYS2«FTMlLta 

VOL SER NOSs StOR03« 

PL 1 a* dummy 

VOL SER NOSs ACAOOt* ■ 

1 MSL • FS300002-»SP 
VCL SER NOSs ACA002. 


S.YS2 • SUBPG.M 
VOL SER NUS= 
ACAD. ^8L I a 
VUL SER NUSs 


ST0R02. 


ACA002* 

SYS8L229.T0918 1 9«RA0O0«NASAPR.R0a0O002. 
VOL SER NOSa W0RK.01*- 

SYSai229*T09l8l 9UiA00a«NASAPR.,H 0000003 
VOL SER NOSa mORKOJ. 

S YS81229.T091 a L9.RA 000. NASA PR.R 0000004.- 
VUL SEB NUSs WORK03* 

SYS81229.TO91819.RAOOO.NASAPR.a.OO00OO5 
VOL SER NOSa WORK.01. 

SYS81229«T09tai9.RA00O.NASAPR«DATASET 
VOL SER NOSa WORKOt. 

S.YS81229.T09181 9.HAOOO.NASAPN.K000000 6 
VOL SER NOSa WURK.03.. 

SYSSt 229. T09 1819 «RA 000 .NASA.RR.C10ATA 

VOL SER NUSa WURKaS* 

0 ES2 .JOBOO 1 37. SOO 109 

SYS81229.T09181 9 »RA 000 .NASA PR . R.DOOO 00 7 
VOL SER NUSa WURK03.. 

SYS81229.T09181 9 .RAOOO. NASA PR.R 00^000:8 
VOL SER NUSa WORKOl. 

S YS8 L229.T09 181 9. RAOOO* NASA PR. R 0.000008 
VUL SER NOSa wORKOl. 

SYS8-1 229.T09t819iHAaOO.NASAPft.KOjaOOOLO 

VOL SER NUSa WURNOl *. 

SYS81229.T09181 9*RA000r.NA5APR.ROO4)0aLl- 
VOL SER NUSa WORK 03. 

S YS8 1 328. T09 1 a 1 9.RA 00 0 «NASAPR t-KOOD 001 2 
VOL SER NUSa WDRK03* 

S YS8 1 229 • r 0 9 1 a t 9 AOO 0 .NA SAPRolOO 0 0 01 3 
VOL SER NUSa WORKOl. 

US£Ra.lSTNt 

VOL SER NUSa ACAOOl • 

STEP /Gd / START 81229.-0 922 

STEP /OU / STOP 81229.0923 CPU- OM 

26E ALLOCATED TO SYSOOOOi 

SYS 8 I 229.^T09234S*RA 000 .NASA PR »R ODOOOOl 
VOL SER NUSa WORK03.. 

SYS81229.T09481 94RAOOO»NASAJ>R.BcAft — 

VUL SER NUSa. WUUK03. 


A3-6 


0000 

SYSOUT 

PASSEO 

KEAT — 

KER.T 

KEPJ.- -.- , 
KEPT 

kept . 

KEP-T - 
KEPT.... 

deleted. 

deleted 

oelejed 

deleted 

PASSED- 

UELETEU- 

OElETEO- 

SysouT 

deleted 

deleted 

DELETED 

deleted.- 

deleted. 

deleted - 

oeleted 

CATALOGED: 

IN 20.BSSEL SRS 
KEPT- . 

deleted 


rT*TV'»' 



0R}i3rr.f»;i' r* 

OF POOR QUAi.{**-v- 


lEff237l 

IEF2ASL 

lEF2dSl 

I6F2tiEl 

IEF2dSI 

IEF237X 

lEraasi 

IE«^28SI 

lEF 2 aSI 

1EF285I 

lEFJrSI 

1EF376I 


166 AUUO£ATEO Ta SYS00003 

SYSai229*T09234 9«RA OaO«NAS4LFft»i^ 000 0003 


VOL SS4- NDS» lOJiKOil* 

SYS a.1.22 9 «T 09181 94.HA0Ca«NA 3AFR« L OAO SET 


VOL. SER NOS* WORKOl. 


166 ALLOCAtEO TO SYSOOOOS 

S YS ai 22 9 .T 092^a4 S 4 R A 00 0 ^NASA RR • R.O 0 0 0 OOS 


VOL SEk MOSS MORKOL.. 

SYSa 1229 .TOO lSl.S«RAOOa«NASARR.*UATAS£T 


VOL. SER NOSs WORKOl * 

JOB /NASARR / START 81229.09 1 B 
JOB /NASAPR / STOP ai229.0923 CPU 


kept 

OELETEO 

KE PT - 
OELEJTEO 


IMlN 39.70SEC SRd 


cnr*r»r>f>nor>noftnr»f>nr>nooonoonr>nooonr»rir>r»oonoononr>oooooocriooocr.o 


OftWSlWAt Jv 
OF POO*^ QUAthV 


A3-8 


MAIN DATE = 

AT LEVEL TMP AS OF Q6/17/91 


09/ie/^A 


DATA SET AAMAIM - 
♦COC-* «a£CX uvlso 
«£OC« UVERLAY ( AOl.-'lAtOiJ)) 

♦COC* *DECK AOiNA 

)rOR»lS- N*A01NA* MaADIMA- 

♦COC* program AD£MA £1.-4PUY» OUTPUT *. PUMCMt TAPESMi>(PUT# TAPEd 
♦CDCJf I output. TAl»t:l * TAPEE* TaPEJ^ TAPEA,. 

♦COC* d TaPET^. tAPEa.. T^PE9 . T^PgIO .^TAPE.U *. 

*COC* 3 TAPEA2.. TAPE13. T.AP£24* .. TAPES TaPE&O.^ 

«COC* 4 TAP&62. TAPE63) 


TAPE&14 


• « • • • • 4 m • • 4 • • 4 •- ••4-44 44 4 4 4 4 4 • « • M- 4 • 

TAPE A L L. O. C A -t I ON 

. TAPE -l STORES LINEAR ELEMENT GROUP DATA 
(..WHEN nEGLgNE.D only J 

. TAPE 2 STORES NONLINEAR ELEMENT GROUP DATA 

• TAPE 3 STORES EXTERNALLY APPLIED LOADS 

. TAPE 4 STORES TME LINEAR STIFFNESS MATRtX 
( WHEN NEGL.NE.O only ) 

. TAPES 5. 6. ARE INPUT. OUTPUT TAPES 

. TAPL 7 STORES EFFECTIVE LINEAR COEFFICIENT MATRIX 

• TAPE a STORES SEQUENTIALLY 

(1) 10 ARRAY 

(2i OUR I NO INPUT 

INITIAL DISP* VEL. ACC VECTORS 
ON OUTPUT 

FINAL OtSP* VEL. ACC VECTORS- 

ANO nonlinear ELEMENT GROUP DATA FOR RcST.ARr 

• Tape 9 stores nodal, coordinates for pressure load, 

CALCULATIONS 

• TAPE 10 STORES- 

0 •• L factors of EFFECTIVE LINEAR. OR NONLINEAR ..- 

stiffness MATRIX IN TIME INTEGRATION 

• TAPE I I STORES SEOUFNTtALLY 

(.1 ) consistent mass MATRIX (IF tMASS.SU. 2) 

(21 DAMPING VECTOR 

• TU^PE 12 STORES THE EFFECTIVE NONLINEAR STIFFNESS MATRIX 

IN THE TINE INTEGRATION - OR - ^ ^ ^ 

THE NONLINEAR STIFFNESS MATRIX FOR E IGENSY.STEM SOLUTION 

. TAPE 13 stores MODE SHAPES AND Cl RGULAR. FREOUENCIES 
tlF .FREDUEnLIES solution was REaUEStSDI 


nonncnpon cn noonorvopnnn 




I '• I, . j.|^ip|||pi|^.LlJ|. I H/T'‘." •-'''!^.^^!l.,JiPP<l|piliiPiPi|^ 


P!\Q 2 . ia.. 

OP POOR QUALITY 


A3--9' 


JATE, = 81223 09/14/44 

• . XAP£ 24 StOHES. NiOOAC. POlWT. TEHRERATUEES 

•" T APE. 59 STORES RREPROjGESSEO I^iP^JX lO AJ.A LLfi 

* FtteSJ=OR .SAVU.6 NOO*L/ELEHS« 


COMMON 

COMMON 


COMMON 

COMMON 

COMMON 

COMMON 

I 

COMMON 

COMMON 

COMMON 

COMMON 

Common 


IMPLICIT REAL*a (A"H«0»2) 

COMMON- ^SOL/ NUMNPi,NEQ * NWK #i4»i(M.».N»C. NOMEST. MI OEST *MAX EST ♦ NSTE. MA 

✓rt f 2^1 ns »N 6 »N.7'» N8« N9 *N10 »N 1 1 « N12* NiSt N1 4» STS 

/OIMEL/ NlOl *Wl02.,Nl03.»Nl04,.Nia5*Nl 08.Nia7-.Nl 04.N10V.N1 10 . 

/CONST^.^T,O«.*0jAU« 

/IlS«/''Seo(ll!';?ATOT?i:l!RQ«“ “““ 

/VAR/ NS. M00^4 f V^OT , KSTEP .1 TEMAX . I EQREE. ITE.KPRtfc . 

/NUR«nEsi5f"iJ.;iS5 i • ^ 

coRROH 

COMMON /ELSTP/ TIME.IOTHF 

/ADOS/ NEQL.NEQR.MLA.NSlOCK. 

/RAND I / NOA .NIO . lELCPL 
/FREOIP/ ISTOH.NIA .NLa.NlC 
- _ , [|S?{^i*'*'’2-”e«?R.ITP96.N6*.N6B 

COM M0N-/S LOCKS/ NSR^S ,NEOl TS* NPRJ d. N00S-V8 .L£M4VB.lSREFd(3.a01, 

COMMON /BEAM/ laEAft, mToTB 

*■*'**’' “ 

COMMON /bear 2/ 8(3000) 

COMMON. A(40010) 

INTEGER IA(1) 

real a. 

REAL 8 

EaOi valence (A(l).tA(D) 


COMMON 

COM.MON 

common 

COMMON. 

COMMON 


**- CURRENT IBM VERSION OP THE PROGRAM CAN BE USED- On v hjiTm a 
max.- OF SOOSOO ELEMENTS-IN THE STIFR4^SS MATRLX.. 

♦ SUdROOTINSS ALSO • 

i^LCALa A,dS£M« LOAOGFt CQLSULt EQU1X« 3T ftST'A^t ♦ 



on nnnoon n nooon on p nnono nnooov>ppooon 




OF POOR QUAtin 






A3- 10 


I 

i 

! 


MAIN OKtE. » ai2^a 09/lO/»4 

RUSSt-TOFg^* THDFE*. aMei.» aANOEJ* SAVAAC « - 

PKI.Ofi. AND Art^R A RANDOM ACCESa READ/WRITE THE F0ULD«ING CARDS 
HAVE ciEEN.. INCLUDED 

« « « R A- N 0 0 M A C C ESS ♦ ♦ ♦ ♦ 

create random files, 2. 10.. with -NUMBER INDEX 

« » .*_• «. R A NO DM access 

NRt 1 )&1.90 
NRI2)«I90. 

LR( 1 )S3000 
LR(2)33000 

define F ILE- .1.0 { 190 • 30.00 »NREX:i 0) 

DEFINE F.ILE 2 ( 190 *3000 •U.NREC2I .. 

* ♦ ♦ * ♦ R ANOOM ACCESS ♦♦♦♦ 


MTOTaAOOOO 
MT0T3 a .SOOO 
*COC-* LTWO«l 

lTw0a2 
NBCSTsNTOT 
NBC ST si 


200 NUMESTsO 
MAXESTsO 
NBCELsO 
NREADs2 
NUMREF»0 
lT£s 0 
KPRIal, 
XSTEPaO 
LNOsO 
ICOUNTsE 


INPUT PHASE 


CALL second (TLMt) 

NO*t A-NBCST 

STORAGE IS ALLOCATED IN -AO INI EECAUSE THE REQUIRED 
VARIABLES ARE-NUT ANOWN YET 


acoCa Call overlay ( shadina.i .o^bhrecall) 

CALL AD IN I 




ORlCTaiiU i' .* 

OF POOIt QUALUY 


c 

c 

c 

c- 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


0Ar4&~^84229 aji/-id/A4 

u d T A IN e L e M e N r I N.F a A T i iH s 

0. EAR AKRA^ for calculation OF COLUMN HEIGHTS 

NNisNS ♦ NEU 
OQ 2' L-N5tNN 
2 lAtl >«0 

Nt>*N5 + NtU . 

INiriALIZe. TeHPtHATUKE At^rtAV 

IF- (. 0) GO T(J lA 

N6A-N3 ♦ NEO i 
Nt>tt-^'«>A 

Ne.*N6A ♦ (NUMN»*^4- L) *l two 

NNsN<> a 1 

»^AO (24) (Att). 1=N6A.,MN) 

1. ALL TCMtCK. ( A(NbA> . 1 STAkT) 

UAGK SPACE 24 

14 CAUL ELCAL 

CALU SECUNO (n.'42) 

STOWE MAXA ARRAY - 

iF ( lUPE*Nt»0» CALL AODRCo (A(Nn»A(NS)) 


STOWAGE 


calculations 


A VA ILAOlLiTy OF WlG)( SPtiEO STOWA'GE ANO CALCLILATt' 

maximum oLoaxsut. numuew ok. blocks. ANO ofocX couhLiN^^ 

U STUWAGL FuH load VE<1U)H CALCULATIONS h 

^MSTO«E=(^ay)^4^N^^^ 4 NTrN4NSTE 4-2 *-XlUAO) 

i«l! t^(*6t220 0r‘^ MSTUWl^^MSTOHE 4 TWO *■ NEG-*-NEQ*4ti(0 
CALL SlZcrMSTORE I — 

2. StUHAuE FOW-MAtWlX ASSEMBLAGE PHASE AMO I IME INTEGRATION 

CENTKA4. OIKFERENCE MAfHOO 
IF ( iupe*ne-.j) go TO S 

ISV-(.Lvc 4 JVC l)/2’ 

1SA3< lAC 4 >AC 4 14/2 

SttiS^NOUKANuJ^^ ITaiMeHXUNJMNP 4 U*i!-a - 

> MTEMP.L t .NEa#! Two). MrEMP=NLa4lTMO 

M4LMP-4_MAxCSt 4 NOCEL _ 

»K I TL { t>% 22v)2 ) 

CACL SIZE (M STOWE.) 

NULUCK= I 


r>ro por» onon 


A3- 12 



MAIN 


jlate » aU2a. oa/ia/AA 


ISTOHaO 
Gti TO 4S- 


C 

c 

c 


c 

c 


S TATIC At!WU.VaiS AMO. rsiPl.LCI-T..TIM£. I NTEGRAT-ION . 

5 HSTOftE*tNEQ * U .+ a*N£0*ITV(0 ♦ I TeMPR*(NOMNP U*ITlU3_jt_J4M£&r 
I ♦ NBCEl. 

lE^(STi!p-!LTi.(NOOFA^^ ^iTeMP*^OOe♦^WMNP. 

??^?ifTSIlEQSn 5aTORE*Msrofte > ^*neq*it«o . 

IF tlSisI:lQtl) mItORE»MSTOR£ T nEQ*ITW 
NlAsft^l. *• tsiEQ +1. 

NleJssNlA ♦ N£0 . 

1B4.0CK*4 

10 MELSTaiaLOCK^NEGNl. ♦ 2*1BU0CK 

MEUSTaMEUST ♦ ^ * Jip?ATWl TWQ 

lSIORU=<MTaT •• MSTORE. • 

IF ( tSTOTE.GT.OJ I GTORL*I STOTE 
IF ( ISToRL.«GT»4)) GO TO 13 
WRITE (6*2203) 

STOP. 

15 CALL. SBl.OCK ( AtNU .ACNIA) . A(i>U 8) •ISTOftL.NBLOCK.NEQ.NWK, ISTQH) 

IF tlSTOTE.GT.O) GO „ 

IF (NaL0CK*LE*t3LaCK). GO TO- 20 

IBL0CK*IBLaCK*2 , a 

IF < iaLOCK*LT*lOCO) «*0 TO 10 
WRITE (6*2204) 

STOP 

20_J4AiMFNwK/N£0. I 


3 . SPECIAL case 


IF ONE SLOCK CASE AND CONSISTENT 


IP C IMASS.NE.2 *0R* NaLOCK*GT*l) GO TO 30 
MMi»^ 24 iaT 0 H. ^ . A- 

ir (mm*le*istorl) go to 3 o 

CALlSIlOCK LA(NU.A(NlAi*AlNlB)*lStORL.N8L0CK.NE0.NWK.lSTOH) 

4* storage for FREOoENCY .analysis 

20 IF ( IEl.G*£O^0 ) 60 TO 3B 

MST0RE*-94N£Q41TW0 ♦ si«f-»iHTwn 

IF ( ItHAS2.*EQ* I ) MSTOAEwA^TORB ♦ NEG41TWO 

MMa( MT0.T • MSTOftEl/ITWO ,*u,i*My:? 

IF (NSLOCK^GT*! *0R* IMASS*£0*EJ .MM-»MM/2 
IF ( MM *4iE •ISTOH). GO TO 36 ua-o.**.* 

IF' ( NBL0CK*6T*1. *0R* I.MASS*£CI* 2) MM-24MM . 

CALL^SLOCK ( A( N I ) *ALN I A 1 . A( NIB) *MM., NBLOCK ♦ NE O *NWK * I S-TON) 
WR-lTE TOTAL SYSTEM OA^TA 

36 wRiTE (6*2210) NEQ*NWK*MA*MAM. IST»>1* NSLOOCtMTOT 


one nonooo oconn onooo 
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Ora&'fia. ^ r. 

°^POOR 


I^AIN DATE a 09/19/44 

W«1T£ (6f2^2-0y 
NN»N lA ♦ NBLOCIC - I 
t«felTE (6.a230) U *l«l *.NeLOCK) 
i<iRlTe (6«^24.0) ( 

NN»N.ia ♦ N34_OCK -1. 

tUHttE tatJ’aSO) ( XAU4 »Ia.Mia»NN) 

NN=N lA. NSL.QCK. 

00 40 laL^NBUXK 
40 X A £ NN+ 1 - i )s.i A ( ) 

A S S E M a LA GS OF LINEAR MATRICES 


NlBsNN 

NlCaNia ♦ N3L0CK 
NlOaNlC -K NaLOC<*NEjQNL 
IF- ( NaLOCK«£a*I> NlQaNiC 

N2=N10 + (1E16 -f I)4NaLOCK 1 

N3*N2 ♦ I-ST0H4I TWO 
N4SN3 ISt0rt*It*»O. 

IF (NBLuCK.SO.l .AMO* lMAaS*LT»2). N4sN3 
4a iF { lUPE.EQ.lh N4SNI 
NSsNA ♦ NEoaitwo 
N^«N5 + N£04If*0 
IF (tMASS.EO*0) Na=N4 

IF (lSJAT*Ea«0 .AMO. I 0GRAV4 EQ * 1 L-NOaNS 
N7SN6 MAXEST' ♦ N3CEL 
WRITE {a,2260> 

CALL SIZE(N7) 
call SECOND! TIMS) 

IF (MJOEX.GT.O) GO tu SO 
X NOa 2 

CREATE RANDOM ACCESS F IlE 10 WITH- ASSOCIATED RECORD.. NUMBER I -XOEX 

♦- # * * '« R A N- D O M A C C E S S~. ♦ * * » , 

50 NOLOClaUEIG ♦ l)«NaLOCK 1. 

*COC4 IF £IOPE«NE*S) CALL OPENMS ( 10 *1 A( NlOi •NBLOCIvO ). 


* 4- A W W H A N -0 Q_M_ ACCESS ***♦ 


IF ( MODEX*£O*0) GO TO- 60 

INDal 

IREPaO 

CALU ASSEM ( A(N1 ).A(N2)«.A(N3) tACNA) rA-lNS) • A( N6 ) • Al N1JLI« A (N4 ) 
I A(NIC) »lSTOH*NaLOCK> 




calculate and S— t — 0 — ft- £ L 0— A 0 VECTORS 

♦COC* 60- CALL OVERLAY ( SHAD! NA»1 ,0 ,6HRECALL) 

60 CALL AD INI 

CALCULA-TE S f drags locations -FOR TIME. INTEGRAtlON 


r.or.nn r.r*f*r» rrijr-o r.r><^ 


ftRtGkNRL V ' ‘ ’ If. 
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MALN 


aATE-s_aj. 2 a 9 


09 /ia /44 


CAUL SECOND ( TJM4 1 ♦w , 

W?' ( W»=Mi.«Eil • Jl N2aNl' NEQ*1 two 
N3«N2- ♦ NEU*-1TW0 
N4sN4^ ♦ (4EQ#ITWU- 
N4AsJ^4 ♦ lJitOM4ITwO 
N4a*N4A ♦>- iATaH*lT«U 
If ( NBUQCK.EO* I > N<wiaN4A 
N5aN4a. NEOMtWO 
IE ( iaP£»£iU«J>- N5»N4 — 

N6»NS *■■ NEa*-ITWO 

n6a«n 6 Neofitwa — 

NNl* Nl>OF*NUMNP 

NNZ=a4N£O*-l.tW0 

IF -iUU I .GT-.t^Na ) N6A»N^_>- NNl 
IF t iaP£T«tQ»-li N6«N5- 
NN2aNeO*lTWO 
IE tNNa.GT.NNi) NN1-»NN2: 

IF CIUP£«£^»3) n 6A*N6 ♦ NHl 
litoaaNbA E ( IT6MP«-4 >*<NUMNP»U *lTWa 
lsiraM68- ♦' ( NOMiXPeU ♦ATWO - 
4 NEGAlfWO 

IF ( I3P£*6i»« 3 ISV«£Q»0) Nd-N? 

N9»Mft ♦ IHEQFItWO 
N10»N9 ♦ NE-OAlIwa 
IF C10PE*EU»3)' JilOaM/ *■ 

IF UMAS-i,E0.2) 

IF ( t S-T AT 0 * 0) N4 G*N7 
NlA=Nltt ♦ MAXEbT NOCUL 
W« ITE (6,22E3> 

CALL SIZE (NIU 

mitlALlZE tE4PeftAtAJR£ APRAV 

IF ( iTeMPft*eo<.a> go to 64 

NNaN6A F ( MOMNPE I A • I-TWO • I 
HEAD (24) (A( 1 >*l=»N6A*i4M> 

w«3tTP IMltlALlZeO OiSPLACEReMTS, >^LOClTl:eS*. AAt> ACCELEftAtLOMS 
OR STiRtl^ lG_A ftESTAiU JOO ) 

64-CALL. WRlT£:(/-im).A(N2l*A(Rn-A(R8) , At N5 ) aNEU ^«OOF-. I ) 

IF THIS I S A restart JOfi -tRARS-FEH. .NORLINEAR-ELEmENT GR40P 
data VO TAPE 2* • 

U I Nn ,* < N8 > . »i« 41 .NSJ-iope »ai 


(I3V ♦ I SA) •NEQ41TW0 


F R E a U £ fct ,C - 1 S O E - O t L a R- 


62 


CALL. SECOND (TIMS) 

IF ( 4 Ci G*EU . a ) uJ3 TO i»9 


IND» 3 ._^ 

T IME-tSTART 

call assem 
i 


» lYlf 

( A ( Rt.) « At.N4) »A( N4 A) ..A CMC) *AlR4 ) . A ( R lO 1 1 A ( R I A » < A4 0 ) t 
A ( Ric) • i.sruH..R0Luau 


r.nnn r r.nr.nnrr. 
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Of POOfi QUAtllY 


ii)AVE * 

CALL SeCONO CTIMoi 


TI-ME iNtEGrt A--J-.1 O N 


T SUM 1=0. 

TSUM 2= 0 . 

TSUHJ=0-. 

TSUM4«0. 

t SUM 5=0. 

tSUMosO.- 

tA4_L SECOND ITlM/i 

TiMdaTlMr 

IH ( mode X.S 1*40} GU TO dS 

»W?irE( 6*200-0) 

GO TO 1.90 

3d IP -( NS-tE .E a^. 0 > 60 T 0 190 

TlME=TSTAKt 

TIMEP=tSTAH-^ 

REWIND a 
1N0 = 4 
KR 1NT=0 

NUMt* 1= < NUMNP t- 1 M> I T WO 


00/1 d/ 4 4 


L INEAR. ANAEVSI S TRI ANuJCARI 2£ EPFECtlVE LINEAR 

pioSlSiu''rf!tr*'' TRlANGUCA«..EA.CT0;g ReSSn iS CUrP'’ 

1. LINEAR ANALYSIS 

2. ONE BLOCK CASE 

0. IMPLICIT TIME I f'* TEGRA TI ON SCNCME IS US.EO') 


call StCONO (TIM?) 

IF (KLIN.uT.J .OK. lUPE.EO.ai GO TO 94 
NTAPE=4 

IP (ISTAT.EO.l) NTAPl*/ 

CALL -COL JsUL t * * A(N1 9) * A< N4 ) »A(N4A).* A(N431 » A( NO)* 

'M£ 0 ,NBLOCK.lsrUH.NTAPe*. 10 . 1 ) 

94 CALL SECOND ( T1M8) 

IP (tUPE.EU.J) GO To— 1 00 

» > 

lumped mass matrix is taken into CORE- ANU- NUOAL. damping \/ECT34 
LS„a TJHED AS FIRST RcC ORt> (IMPLICIT -TIME 1 NT EgHA.T 1 UN ) • 


IF ( IM ASS . NE .4 ) GO TO 14> 0 

REWIND II 
N.V-NID - I 

READ (ID ( A ( 1 ) • t=N-9.NN) 
NN-»N6 ♦ NEU4TTWO *1 
read (11) I A( I ) . l=Ntt.NN)_ 
KEW-IND 11 

WHITE (144 ( A( 1 ) *1 


T ! M E S T E » I NCR E M E N T A T 1 O N 

KSTEP .ED. STEP CJUNTLR- 


uooo ouuoJ Oooooo UOUU UOOUOO OUuOUWO o u ouo 


A3»T6 


ORUaNAt PAGST3 

OF POOR OUAUTV 


MAiri™ oAte A dizzsi— 

TIME .ECl. time AT which SOLUTIOH IS rtEdUlREO 


09/LauCajL 


100 KST£PaKSTEl» ♦ 1 
TiMEPsTTME ♦ • aTA 
TIME* TIME ♦ OT 

STlfi^iNiESS REFORMATIOH FLAG ,s 

IREF*EQ *0 IF: SXIFFUESS IS TO -Bt REFORM; 0 . 

CALL. aLKCNTI KSTEP*MSHEFe-,l.ReF,lSREFa.NST£..l) 

IF' C.IJRE»N£«3 .ANO* ;rSTEFi.£0.14 iREF=0 

FLAG FOR EQUlLiaRLUM ITERATIOM 

IEiJUtT.£a*0 IF ITERATION IS TO tJE PERFORMED 

ISQOIT.GT.O IP WO 1.TERATIOH IS TO . BE .PERFORMED 


Call BLKCnTI KST£P»NEQ1 TB.IEQOI.T.* tEaiTB^WSTE»E> . 

Flag for tr i angular izat.i on and/or simple reduction, and .. 

plus SOLUIIOU 

K-TA.ECuZ for vector solution only 

KTR*l 

IF- ( IREF .NE*0) ltTR»2 
IF IKLIN.EQ.O) K.TR-2 

nEQREF IB THE number OF TIMES THE NONLINEAR STIFFNESS MATRIX 
WAS REFORMED 

NEQREFaO 
140 REWIND 4 
REWIND 7 

FLAG TO INDICATE CONVERGENCE IN EQUILIBRIUM ITERATION 

ItDREHtla!! NOKM.^OF^oSf-.OF-aALANC£ LOADS IS LARGER THAN NUR.M 
OF incremental LUADB (see EQJITI 


lEQR^EsO 

SO lotion 


0 F 


I W . C-il..E_Ji_E. N. T A L E Q U A T I □ 


N S 


CALCULATE LINEAR EFFECTIVE LOADS BA4.ANCED IN CURRENT. COfiE.luU,RAT UN 
CALL SECOND (TIJ4SJ 

CALL LOAOEF ( ACN 1 1 »A( NIA )-#At N2) • A(Nl ) f AiNT) • AtNfl l^AI N3 X«.A( N6 ) » 

I A(N») »A(NV) 7nBLJCK» 1ST DM) 

CALL second (TIM- 10) 

CALCULATE EFFECTIVE NONLINEAR. MATRl X AND FINAL EFFECT IV.E . LOADS 
CALL ASSEM ( A(Nl-) ».A tWA) *A( N 4 A) • A( N 2 ).t A(NO) *A 4 N.l 0 iu» A( N 1 A).*AtNX»S )* 


OF POOI^ 't 
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c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


l- 


MALN 

A ( N 1 C )-< i SrOH « NBt-UCK ) 


>^AT£ .s S422d 


0**/ia/44 


1 


CALL SECOND (TlMl I » ,, „ 

IF (K.STEP.EQ. t- . AND* lOPE.NEiS) «iU (dt^SOOl T IMI 1. .. 

SOt Vv* FOR INCREMENT IN OlSPH-ACEMBNt VECTOR .^NO TRI ANGULANIZATIOM 
IF simple EaulLIURlDH~l-tERAtlON_l^ .T.O-aE.-P^E-ORMEa... 

IF { 1UPE.NE.J) CALL COlSOL C A( Nt). , A( NIA) . A-(Nl O I »-AtNA ) *Ai NAA F. 
ALN4a)<A(N3) *NEQ.NaLOCK*.I^TOH*.I2.U-0«KrR> . 

CALL SECOND ITIM12J ^ 

IF (KStEP.ECUl .AND* lOPE«NE*3-» K<RlTh (b»23I0I T IM12 
TSUMtsTSURt ♦ (TlMlO -* FIM^> 
tSUM2=TSOM2 + (TIMi; - TIHL3) 

T SUM 3= T SUM 3 <• (TIM12 — TIMll) 


IT E R A T 1 0 N 


FOR 


DYNAMIC 


EG DILI dRlUM 


NO ITERATION IN LINEAR ANALYSIS 
:F (KLIN»£Q.0) CO TO I 10 
IF ( IEQUIT«Mc»0) GO TO IlO 
CALL SECOND (TIMLOI 

CALL EQUIT ( A(N4> .AINS > .AI NS ) • At N2) * A (N7) • AtNS ) * AXNI I » AtNS > * 
1 At NV) t AtNIO) • At N4A) *At N4fl).^A ( Nl Ai*.AtNl O) •ZSTOMi 

IF NO CONVERGENCE IN I TERATION PROCEED TO NEXf DATA CASE 

IF ( ITE.GT*ITEMAX> GO TO I 40 

CALL second (TIM 14). 

TSUM4=TS0M4 ♦ t.TlMl4 •* TIMUF 

CHECK FOR NO CONVERGENCE IN EQUlLIdRlUM ITERATION AND - 

poss I sle reformation of gxiffne-se - - 


l 12 


C 

c 

c 

c 

c 

c 

L 


IF t lEQREF >£a* 3 I-JGa_lQ 110 
KTR* 1 

Ift£F*0 

NEOREFaNEOREF ♦ I 
IF ( NJMREF »EGiiO ) G-O TO 112 
IF ( NEQMLF*L£ .1) GO tCl40 
4RirElb#20«3) 
uu TO iVG 


CALC ULATE 
FUR STATIC 
VECTOR AT 

method 


*r# DISP.. VEL. ACC VECTORS AT Tl-ME»r START 4 jCSTEP^DT 
ANALYSIS AND IMPLICIT TIME INf ECRAT lON AND AwSu DlSP 
ri HEaTSTAKf (K-STEP ♦ U *aT FOR CENTRAL D IFFERENCE - 


I ID CALL SECOND (TIM15) 


ccnno noo r>r»r» nr>r>r*nn o non n nnnnnnnnn 
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^ ITV- 


A 3 -ia 


Main OATS » sta2d 09/ia/A4 


FLAaS-FUK FRlHtlNa* SAVING NODAL AND iAENENt t^fSPONS&S. 

KPR I. MASTER CaNtROC«-..EQ^O STRESS CALCULAf IONS 

FOR PRINTING OR SAVli^G PURPOSes. ONuY— 
lPRi.EQ*.0 FOR PRINt-OUt OF OISP-.VEL *^AjCC, A-NO STRESScS 

<PLaTN-.ea.O for. SAVING-NOOA-L disp* vea.. acc vectors 

KPLOtE.EQ.O. FAIR SAVING ELEMENt STRESSES - 

C AiX aCKCN T (XStE P • NPRl O^-tPR 1*1 PR13« J^StE , 3 ) 

CALI- 3LKCNT( KSTEP*J>iUD-3Va.KPL0TN*.IN00B.NSTE..A) 
call BLKCNT( KSttP>LEMSVO*KPLdte»I£LMa.NSfE »5) . 

KPRIslPRI. 

IF (KPRI*NE*0.L KPR4»KPL0-TE 

CALL NEWOAV < ACNA.) , A( N3 1 »AT4NU * A ( N3) . A ( NS) » A( N7) • A(NSJ . 1 ) 

CALu SECOND (TIMIS) 

TSUM5=TSuM 5. ♦ (tlMlo - TIMIS) 

IF (IPR1.EG.0) VRLTE t 6*^02 0) KSTEP *T1 ME 
IF ( IPRI .NE# 0) GO TO I 71 
IF (.lEUUI.T*Ea*0) WRITE (S.2060) ITS 

IF < I£QULT*GT*0) WRITE (6*^050) 

IF (IREF,ea*0> »RLTE(6.E070) 

IF (iR£F.N£»0} WR(TE(6.20dD) 

1 71 IF (KPRl ,NE. 0) GO TO 1 70 

PRINT DISPLACEMENTS.VELOCITIES- AND ACCELERATIONS 

IF t.IPftl.EQ*0 .AND* IPC-NE.O) 

I CALL WRITE ( AtNI) *A(N2)*A(N7)*AUita) *A(NSJ»J!IEC«N00F*2) 

CALL SeCuNO {T-1M17) 

tSUM5=TSUM5 ♦ (TIM17 - TIM16) 


CALCULAT l—O N OF S r R ESS E S 


CALL SECOND t TIM Id) 

TSOMSaTSUMb ♦ (TIMIS_« TIM17) 

KPR1«] 

UPDATE displacement VECTORS. IF CENTRAL OlFFERcNCE* METHOO- IS USED 
170 IF. ( IOPE.E'0.3) 

I CALL NE WD A V .{ A t N A )• . A (-N3.) . A ( N I )l. A ( N2 ) • A.( N3 ) . A( N7 ) . A4 N S ) . 2 ) 


SHIFT Temperature array (if applicasle) 


IF (.ITtiMPR.LT.2) GO TO 130 
DO I7A I-t.NUMPl 
17A A (NtiA4^1«>l )aA(N6B4 1*1 ) 


T. A p e s- 

F U T U R 


FOR 
E RE 


S 


P O S s. I . a L E 
Tart d o a 


PREPARE 


Aioa. 


ORIGirjAt lz~ 
OF P 00 {^ QtiAt 


MAIN... 


JATE * ai2£iJ 


J«i/ia/A 4 


c 

c 

c 

c 

c 


c 

c 

c 

c 


FOR. SAVlNiS RESTART INFOBMAtia'i 

t RR . 1 0.4-0 a A Ve t NTOrt (4 A Tl ON. 

l«R .uT *0 NO- SAVE - - - - 

1 80 KRINTskRIN-T. f I- 
LHR=IR1NT -• KRINt 
IF tXSTEH.ea.4SiST:E) IRftaO, 

IF ( IRR44it • OL-SO Ta 12 0 - 
KRINTsO 

*^*STAftT. .( AIRl I *A(-M2) »A( N7)-»A( R3 ) *.A (RLO 1 «nEo* 10P£« 1 ) 
120 IF tXETEP*LT«NST£J. 6a TO 100 


F R IN T- 


r l_M E 


LOG 


190 CALO SECOND (T4A419> 
MR1TEI6* 2090) RED 
riMlOaTIMa - TtM l 
TIRliaTlMA • TlMa 
tiHiasTIMO - • TT HS. 
Tl.Hl3=Tl,4a • TIM/- 
Ti-Rl^sTlMlO -- flJ 4 a 
T IMI S3 TIM 19- T1 Ml 


c 

c 

c 

c 

c 

c 

c 

c 


« « 


a JV O Q H AC C-£^ S 


♦ ♦ It 


#coc# 

♦coc^ 


IF (KLm«NE*a» GAUs CLOSHSta) 
(lXJaE»NE«3) CALL CLOS.4S (10) 


« A 4 i H ♦ 

GO- to 200 


a A ri-4> 0 M A C C & s S 


♦ ♦ it <u 


2020 

20 30 
2040 

2050 
20 oO 

20 70 
2080 
2090 


F 0 R time 


FORMAT (1K1»A6H F R I N T O O T 
I 40A.I2H ( AT ri.vie 4EI0.A42H ) > 

FORMAT C////4 1 H DATA C H* £ C K C a M F* l_ E T,. fi ol- 
IREMEnTac^L^DS^ STUI^ 8E6AUSE OUT -UF -BALANCE lJADS_LARUER 

I/2A*4^N0 eawtU^RIJM. lteRA.TiaN, in THIa. tl.ME Sr.EF- 

1^*"* Equilibrium ircRAtiONS performed in rm 

l>t£F TO KEESTAdLISH eOUlLlBRlUM ) in* 

format (.2X4AdHStlFFNe;S6 REFORMED FOR THIS TIME STEF 

I R€FDfLMED For tMtS TIME STEP 

I IMI»44rt L U T I. O N T 1 M E L J 6 tIN SEC) 

IIHKOW P«0BLEM//IX.12A6///^/) u u HN asc) 

( 49H Input PHASE * -4 *. *. •. ^ 

assemblage, of LLNEAR si tFFNESS.»£FFE6TlVE STIFF 
^SS4MASS matrices and. load vectors- 4 .. • 4 , •-. 

^EOUENCV ANALYSIS . 4 . . . .. 4 . . 4. . * • , 4 
TRIANUULARIZATION OF LINEAR lEFFECIlVE) 

, . Sr-IFFNESS MATRIX • 4. *._4 

sTEF^iay-STfcF SOLUT ION ( t IS. 1 2H T IM E STEPSI . 


format 

format 


1 

2100 FUR.MAT 

1 


0 


A 9 H 

49M 

49 K 

A9M 

49 H 

24 H 


S T— £ F .IS. 

THAN INC 

). 

S TI.M5 
i- 

y 

/-/ L2X . . 

•F9-.2'//- 
/ 

.. F 9 .. 2 -// 
-.F 9 . 2 -// 
/ 

•FjO.Ev'/ 
// 
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A3-20 


MAtM- 


oAte - a42^a 


O'J/aa/AA..- 


6 

1 

a 

<) 

A 

a 

c 

a 

£ 

F 


43H 
4 3W 
43H. 

43i^ 

4JH 
4^3H. 

43H 
43H 
30X* 19H 


,F9*2v^ 

/ 

F 9* 2/ 
,F9,.2/- 


/ 

,F9«2/ 

F9.2// 


CAUCOLATiON OF EFFECTIVE U2AO (/ECTOgS-*- 
U!»OAtl-N<i EFFECTl-VE STIFFNESS MATrtiCES 

ANO L.OAO VtECTORS FO« NONLiHEARlT lES • - 
SOCUTION OF EauATlONS »- • • • — * * 

EQAilLlORIUM ITEHATIUNS. • # • • • • • — 

CALCULATION ANO PRINTING OF UlS^ACE* 

.v»£nTS* VELOCt-TIES. ANO ACC|L|gAT I ONS. 

CALCULATtON- ANO PH-lNlING UF STA^SSES — •- 
STEP-at-StEP total .F9..2/y/// 

49H TOTAL S. O L. U- "C I O N ^ -E -.-tSECJ • 

lio3 FORMAT (//60H 4 A STOP ♦♦ NO STORAGE AVAlLASLE- JO STORE 

^^^^INATRIX.. */bSH I NCREASE. MTOT ANO/Oft BREAK ElEME t^-S _I.N-PUT_tNf 0 MORt 

ERROR IN INPUt // , 

“ j 33H more THAN lOttO SOLUTION. BLOCKS- REOO- T 

2210 FURHAt (IMlt 

ISShTcTAL- system ^ ^ .Info) 

256HN4JMBER OF COUAT I ONS . * •; 

355MNUMBER OF MATRI-X ELEMENTS • • • • • • •- 

4SSHMAXIMUM HALF BANOWIOTH • * • JMA I- 

553KMEAN half BANOWIOTH • • • •* •• • •• • ••,r4rnw» 

65SHMAXIMUM BLOCK LENGTH . . * * -• • • • • • •• • t*ST^4 

755HNUMBER OF BLOCKS • » 

SKIS % ?b£S5^^o^^|%'Rfiiriw 

(e>X.2IH FIRST COUPLING BLOCK « 7X» (21 14*/ .SAX H ^*ni*/*ts* t 

1//50H04* STORAGE CHECK FUR ASSEMBLAGE af', LINEAR MATRICES ) 
<V/bOH044 STORAGE CHECK FOR LOAD VECTORS INPUT PHASE . I 

( //SOHa4*3TORAGE CHECK FOR pw i 

/ y y 1 c u c 1*£ p Mij MQ£ K ~ • I 5 f S-X# 1 21 H t AT T X*-M£ * t.LO’* ^ 2 ^ 
{//»5 9H TIME AT ENTERIHG-EUUATION SOLVER FOR FIRST FACT OR IS 


A//SX* 
= . 13/ /5.x*. 
»* 1 8//SX* 
S.1B//5X.*- 
SS.-1.3//SX*. 

a. 13//SX* 
*» IB//5X. 
ld//l 


2220 

2230 

2240 

2250 

2260 

2270 

2260 

2290 

2300. 


FORM AT 
FOR.MAT 
FORMAT 
FORMAT 
FORMAT 
FORM AT 


. FORMAT .. 

IATION =,FI0.5) 

2310- FORMAT {//»67H TIME AT 
IRST TIME STEP a.FlO.Sl- 
OEBJG TRACE . SUB TRACE 
AT 100 
TRACE ON 
AT 190 
TRACE OEF 

ENO 


THE E NO- OF SOLUTION OF EOUAtlONS FOR. THE FI 


,J, .WJ,. IIAIPW! 
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ORIGtNAl PACE (S 
Of POOR QUALlty 


FORTRAN IV- Gl RELEASE a*G- 


MAIN 


OATS a d 1221. 


:gpT“ai- IN iFpicTt 


m ur"i k ^ 

♦ ST At 1ST ICS* 
♦StATXaUtCSA 


-CT*- NAMC = 

SOURCE statements » 

NO DIAGNOSTICS GENERAteO. 


!|ts,RttQGRAM. sue. * 


nonop non 


WPPH ' T. ' 







OP POOR QUAWlTY 




c OAtA set AOIWl 

C ♦CDO' ♦OfiCJt aVL I 5 , . , . 

C ittCPC.*- av£^ LAJf. .-tAPlhlA.«l-*0} 

C *COC* *OECK- ADlMl 
C ♦UhJl.# yjKia.IS N^AOlMl R*AOlh»t 
C *CDCA PROGRAM ADIts4t 


MAliSl tXATE s ai2ii9 

AT LBVei. TMP AS OF Od/17/ai 


Di/aa/AA 


C 

C 


SUaROOTINb A 01 Ml 

C0.MM0H*/S0^/^NUMNP*(^Q »NWX».NWM».Ni«C» MUM6SI ‘MIDEST *MAXEGlrNSTa*MA. 
CdMMOM N0 *MI »N2»N3<NA*M3 .»No N9 *^^0 tMl l *M12»M 

CUMMQi^ /£Ly I ND a 20 ) ^ NUMBu t N£v*L.^iNiHi»NL. « 1-&1ASS# i^A&iP**.XST AT 

I ♦NDOF*KLiN.» ietG»lMASSN*IOAMPN ..a a.. 

COMMON VCONST/. O-T-.aTA ♦ AO. A1 •A2i«A3 .mA .AS * A6 aIE* — 

I .A. 12 * A L3..A I A » A 1 5 . A4 6^ A 1.7 • Aia 

COMMON /LOA/ TSNO-.NTFN.NPTM..NCOAa*10GRAV.NHK2.i5*PR3 .NOOEO- .- 

iSJSSS i«g?.'NS?S^,iii:Ii§JlVSs?l>..TeMAx.r^^ .Te.KP«.. 

I 4aEF.te001t.IPRl*KPt.OT N.KPLOTe 

COMMON /NORM S/^ RNORM. RENORM.* RTOL.ONORMM. •» 

CCJMMOfi /PHCON/ I OA.t # I PRl I DC* i.^^9 Si 3 1 1 5 ) 

COMMON /AOlNAi/ 0PVARC7) *TStAR.T.* IRi NT* IST.OTE 
COMMON /TEMPh^T/ TeMPl*tEMP2*lTEMPR*4TP96*J^PA*Np8 
COMMON /MOFROM/ lOOFCO) 

COMMON V^OCtci/'*N^ a p?ma< j \ 

, 1E01T3(3*10I ,I P«IB(3 .10) *XJsiOOa(3*lO) * lEL^^O, to) 

/PORT/ lNPaRT*JNPORT*NPoTSV».LONOOE*i-Ul.*L.U2*t-i 3* JOC* JVC* JAC 
/RANO.I/ NOA.NID.IELCPL 
/BEAR/ IQEAR.MTaTa 
At I ) _ 


8HPRtNT0UT* 


COMMON 
COMMON 
COMMON 
COMMON 

rbal. a 

DIMENSION BLKNAM-(.S» 

DATA BLKNAM /aHSTlFNESS*. SHtTERATON. 
i aMNOOeSAVE. artELMTSAVc / 

DATA RECLBl /8MMASTEHCP/ * F-I NAO /ariSTOP— / 

INO.EQ.w MWEN UOAO VECTORS ARE TO 3E ASSEMBOEO 

IF ( IND.EQ.2) GO TO 30 

READ C 0-N T R 0 L _I JN_F 0 R_M A T _L_0 N 


C**« 

c*. - 

C 

c« 

Cm 


READ ( 5^iaOa> HE(> ^ 

HEAO*^5Vi003T*NUMNP*tIOOF( 1 ) »t«l »6) *NEGL*NfiGNO*»WDeX*NSr£*_. 
I DWTS.TART.tOATWR*lRlNl *lt>96.tNPaRt-*aNP0RT*13-T0TE 

ip ( liJAT«rt^6U*0 foRC IDAtwR*E0*2) CALL tNLiSt .(2) 

READ t. a* 1 001) IMAS3.1-DAMP-* tMASSN* IDAMPN 

Read c a L--C — o l a t i .o n m— o— o >e — *• 

IBEAR a l bearing GALGULATIUNS REOUtRED 




^7TT7*?^:, 




Ai-23 

O^GINAL (^AQg IS. 

OF POOR QUALITY 


AD 1 Mi- 


D-ATg « 81^2^. O',)/ 18/44 


C. IQtAR » 0 NU BEARING CAlCJLAJ lONS-JkEUOiiieO 

C« 

READ <t>, 10021 IfTg.I^AR*^*****’ ••••••••• •• ••••••••»« 

toRlTE (6*4000) 18EAH 
♦0^0 format (////S>X*.*l-BeA«( A)>lNI )^»*.IS1 
READ (5. 1020) lUP&.OPV/SR 

W-EAD(5* 1005) NSREFU.,NEQtrQ.4.TErtAX.aTdU. 

READ(5* 10 10 > NPR1B.NPB-.10C.1VC*1AG 
READ ( 5. 1010 1 NPUtSV*NUDSVa.l£MSV3.EUNaDE*UUi*UJ2*EJ J«JOC* JVC* JAC 
C 

IF ( NS«EFa«E0*O) GO TO ;^50 

READ (S+llOOK ( l-SUEFCK 1.2) ,lsl.»2).*^SEL*N8R£Fa) 

IF (NSTE^GT.O *AND*. ISHCFail*!! *l£a. 01 1SM£F8IL»1) 4_1 _ 

IF ( ISREF-B( 2.1 1 *EO* 04^ 1 SREFBC2 *i 1 »■ NSTEl 

IF (IS«EF8(3»1> .EJ* 0) lS«eFa(3.1) s 1 
INDEX'S I 

(F (N5KEFB.LE.1 ) GO TO 240 
DO 230 ls2,, sSWEFtl 

jul « 1 

IF ( 15REFb( 1 ,Jl..GT.lsaEFM(2. 2) 1 GO TO 236 
IF ( I5REFB( 1 * U.GE.l SREF)1(2..F> ) GO TO 230 
WRITE (o.JOOO) BLKNAMdNDEXl *i .2 
STOP 

230 CONTINUE 
240 JsNSNEFW 

IF ( ISKEFDI 1 .2)-LE.ISREF3t2»2l ) GO TO 246 
£36 WRITE (o.DOOn UEKNAMI INDEX) .2 *2 

STOP 

245 IF { ISKEF D( 2 .NSREFB) .GE.NSTE ) GO TO 250 

WRITE (C.300 1 ) Ut.NNAM( INDEX) .1 SREF8(2».NSJ1E^JU N3T6 
srop 
c 

250 IF ( NED I TU.F 1. 0> GO TO 350 

READ ( 5, 1 100 )( ( ILUl TU( 1.2) *L = 1 .21) * 2^ 1 » NEGUTBl 

IF (NSTE.GI.O .and. 1E0ITU(1»1) .Eu. 0) IEaXTB(a.l) 3 1 

IF (IEDlTB(2.l) *eO. O) lEOIT3(2,l> * NSTE 
IF (1EUITU(3.1) .ED. Oi lEOITDIJ.l) = 1 
INDEX=2 

IF I NEDlTH^l-E.l ) GG- TO 340 
DO 3 JO 1 -2.Nu.21Td 
js I « I 

IF ( lEUl :B( 1 .2) .uT.tA^OlTdl 2* 2) ) GO Ta 335 
IF ( ICOJ Td( 1 .1 l.GL .IcOlTdi 2,2)) GO-TO 330- 
WRITE (6*300 0) BLKNAM( INDEX) • I .2 
S-TO:» 

230 CONTINUE 
340 2'-NEUHt5 

IF ( lEUlTtK I .J).LE*IE0irj(2.2) > GO TO 345 

336— WRITE (6. 3004) ULKNAM( I NOEX) . j .2 
STOP 

245 -IT ( lEQirut 2.NEUiT3).vjE.'(STE) GU TD 3S0 

WRITE (o.uOOl) dLKNAM( INDEX) .Ihafrd(2*NEalTBJtF^fE 
STOP 
C 

250 IF (NPRtU .E2.0) GU TO 450 

READ ( 5. I 1 00 )( ( IPRlOi I ,2) >1 wL* Jl.Js 1 .Nf>aiB ) 


A 3 -LM 


ORtGiNAA- 

. ^1*1 At ITV 


ADINI- OAte « 

If- (N3T£:44^T .x> U>U1 »(1 , 1 ) .1.0*^}) 4|3fUa.a ».l jsl 

IP- t- tPRItf( 2 , l» .La. -O l>^RI 4 i( 4 *-X ) » NSft 

IF I l^KIt»(J-^ 4 ) 01 I FR I m 3 »-I ) " 1 

1 NOE X= 3 . 

I.F ( Ni>RlB. 4 .e* U UJ — 40 440 
DO 430 I- 2 .NRRIU 
3*1 - I 

If ( 1 >R lal-l * 3 ) .Ot . tPRi 0(3 t 3 ) ) C.O- TO 43 S- 
IF ( IRK Idi.l . I) » 3 E«lPKi.Ui 3 * 3 ) f OO TO. 433 
WRire ( 6 * 3000 ) OLKMA.miMOEXJ.*! *3 
STOP 

430 CONTIMUE 
440 3 *NPRia 

IF ( 13K lot l*.3-)«UE* LPRlU(2t J))- 60 TO 44S 
436 WR ITE ( 6*300 4). OUKNAMt INDEX) *3*0. 

STOP 

446 - IF ( lPRl 3 .(^*NP^I.a•)•. 0 E•NSTe> GO TO 460 

WRlTt ( 6 * 3001 ) liLKNA. 4 (.lJ 4 UEX).*IP«lU( 2 *NPRl 3 ),N 6 rE 
STOP 

460 If (NFS .EO.O) wO TO 560 

KhAD (&*I 100 ) (( 1 PN 0 UE(I* 3 )*I* 1 » 3)*.321 ,RRa) 

DO 500 I*l*NPt 4 

500 IF t IPR 0 UU( 3 , 1 ) .to* 0 ) iPNOOe( 3 * I ) *l 
550 IF ( 3 NPUK T •£ O* 0 » 0 H. NUO>>Vt. 4 » EU *0 ) GO TO 6&0 
READ ( 5*1 LOO )( (.INOOOI 1 * 3 ) *4 *l ,34 * 3 * 1 « 3 t 0 O 3 V d) 

IF (N 5 TE.UT *0 *AND» I NOOcH I * I ) *Ea, 0 ) I NUDD ( 1 * I ) * 
IF ( INUOdlO.t) .EU. 0 ) INODd( 2 *I) * NSTE 
IF^ ( LNuOa(J.l) .EG* 0 ) iNODiLIi*!) * 1 
INDEX* 4 

If ( NUOSVd.LE.l ) GO lO 646 
DO 6 30 t.* 2 .NaU 5 Vd 

3* L - I 

IF ( iNODdl L« 3 )»Gt.iNODO( 2 * 3 ) ) GO TO 636 - 
IF ( 1 NOD 3 C 1 * l).<^E.lNOD 3 (T, 3 ) ) GO Tu 633 
WRITE ( 6 * 3303 ) »UKNAM( INDEX) .1 ,3 
SIOP- 

630 CUNTINOE 
640 3 *N 006 VG 

IF ( lNUDO( 1 *. 3 ).I,E*INUD 0 T 2 * JL) GO tO 645 
635 WRITE ( 6 * 3004 ) BLKNAM( INDEX) • 3 *3 
Stop 

645 IF ( 1 NODO( 2 »NOl>SVa)*G£*N.StE) GO TO 656 

WR I r E ( 6 * 300 I ) U LKNAM( 1 NDEX ) * 1 NaoO( 3 • N 0 O 5 V 5 ) • N 5 t C 
STOP 

650 IF (JNPURT*Ea «3 »OP. LEMHVEUEQ., 6 ) GO TO TEO 
READ ( 5 *ll. 00 )((.LcLMU(I * 3 )*t»t* 3 ) * 34 I_*LEM 5 VIi) 

IF (N 3 TE«Gt.O *ANO* IElM‘ 3 (I* 1 ) .EU* 0 ) IE(.Md( 3 *l) * 1 

If ( 1ELMU12*!) *EU«. 3L IECM5(2*I) « NST4- 

IF ( lEUMdO.U *tQ*. 0 ) tELMt)( 3 *I) * I 

lNOEX =5 

IF ( EENSVO.LS*! ) GO TG T 40 
DO 730 I* 3 ,EENSV 5 
J* I I 

IF ( IEUMU( I. 3 )«Gr.lEEl 40 ( 3 * 3 ) )- GO TO F 35 
IF ( lELMOi I *I )*jGE* 1 EE. 4 U( 2 *J)) IVO Ta A 30 
WHITE ( 6.300 0 ) 3 LANAI 4 ( INDEX) *t *3 
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A3 -25 


AO INI 


DATe_a~ai22!J OJ/ia/AA 


StOi* 

730 CONfINOE: 

7AO Ji*i.eMSVb 

1^ ( l£LMOi I ♦J)«LE4 ieLHc)<3f 3)1 - aO TO 74^S 

73S- MNlTE (6-»3U04 ). QlKNAM41NO£.X) «3*.3. 

STdf^ 

7AS If^ ( I£LMd(a»l.EM3Va)*OE.NST£) GO TO 7S0 

1 r E C O • 3 0 0 1) S LKN AM ( 1 NOCX ) • 1 ELMOI 2 . LEMS ). ».N3T E 
STOf* 

7S0 CONflNUC . 

C 

C. VERIEV. ANUl 1N11L1.AL12E SOLUTION VARIABLES 

C 

NUME'CsNE^L * NEGNL 

NOOf-^a6 

DO 1. isl.b 

1 N4XJf='»NOOr «. lOOE(l) 

1 STA Ta t 

I.£ ( IMASS*£Q.0) ISTAT*3 

UUP£*^NE43 u)K*— IMASS.EQ.U G-Q. T-Q. 20 
WRITE L6.3012) 

STOf»^ 

20 1£ ( tOAMR-.EQ.-l .ANO. iMAdS.EQ.O) GO TO S 

IR -i IOAMRN.NE.0 .ANO*. IMASS.EU^O) GO TO S. 

IP ( IMASSN.NE.O .ANO. IMASS.EQ.O) ^U TO S- 
GU- TO 3 

5 WRlTEtb* 3002) 

STOR 

3 TMa t .0 
OTAaOt 
ICLlNsi 

IP CNE.GNL.EQ.0) KLINaQ 

IP (I0PE.-NE.3 »UR. lEIG.EQ.a) GO TO 2 
WRITE (6.3010). 

STOP 

2 LP ( lEIG.LE . D.GO TO 4 
wR-trE(6-.3003) 

Stop 

4 IP-C 1T£mAX.£ 0.0) tTEMAXslS 
IP (RTOL.EU^O) RTULsl.OE-03 

IP (1JPE.EQ.3 .OR. KLlN«^eO.O) NSREFBaO 

IP C 10PE.EU«3 .UR.- KLlN.EQ.O) NEQITBaO 

IRCa IOC ♦ ! I AC 

IP (NPB.NE.-0X GO TO 6 

I PC* I 

NPB^ I . 

tOC> I 

I VC» I- 

lAC* 1. 

IPNUOEi 1 . i)al 
IPNJOEt 2.-i)3NU.4NP 
IPNOOEI 3.3 i si 

6 CUNT-INUE 

IP ( lUPE.EU. 0) I0PE«4 
IP- 1_IM INt .£-0.33 Ik!NT39P99 


AO* 0* 

AIsQ. 


c 


c 

C 


OF POOR 


aoinx 


i>Ate- » d 



o^/ia/UA 


IF(MtJC*eX.NE.2 .Awia*. JNI»dRi:.i*T«42.) N^U4‘SVsl 
IF (CUNlJiJu *EQ. 0> UJNi)0n = 60 

IF (UJl ,ea* 0) LUl atvl 

IF (LJ2 .gU* (» LU2 »t>2 

IF (LUJ .£U« 0) UUd *t»3 

OAFA PUHTMULE (STArtT) 

IF I JNPUi^T »Ea»0) GO- ta 790 
KecuAfcj=«tci.ai 
wHire U-«jNiuat£) 


c 

c 

F90 


1 

2 

J 

A 

5 

6 

KECt.AJ*ULK.'iA44( 
IF (NSKtFB.Ne, 
I J=l.NG«EFt») 
«t-a-AU-OLK,NA A( 
U- INEUlTu.Nti. 
I J*t.NtaiTJ> 
WeCLAB=tSL.KNA 4( 
IF (NPMlU^>*t*0 
1 Jal.NPHIBI 
P E Ci. A U 3 B u K N A Ml 
IF (NJOSVJ.NUi* 
1 J*l«NUOSVB) 
P ECU AU 3ti LK NA.M C 
IF (UEMSVU.NE. 
I J 3 t , Ub MBVB I 


S^*"^^***-**^*^^ * X* 4 »l #i 2 > *-NJMfiP*(I OOFUU #.tsi *|> 4 , 

NtGU.MeGNU*MOl>ex..MSJb',Ot .XStAW 7 .IrOATAK^ l^T^tT 

OAMP.,t,MAdi»N*.lOAMPH« 

|^VAk( NPRi tig N 0 i>:akV 3 # LEMS V a*A.U 4 >iaOt gLut g 

NP 8 ^ 10 U. iyC,.lAC ..Vpursv.joc. JVC*.JAC* •Uviw.A_J 4 v 
J i IPNUOei u J) .1 =1 ♦ J) ♦ Jal ,JbU>-di . 

0 ) WHl rECLUNOOEl RECuAE, UFS^eF-Otl * 4 >-. IsU- 4 J , _ 

2> 

0 ) WR 1 re (uuNaoe ^ reclae* i i i e qi to ti . j ) . i-a * j j . 

31 

> «RI Tt (UONUDE) R£CUAB.(UPRltl 41 ,.J)*l = l,JJ, 

4) 

0 ) WKI TtlLONaOE) RbA;LAa« UINUOai 1 . J|*^Iat,J 4 ^ 

s> 

O) WRI TEIUUNUOEI «UCLAd,(( lEURBl 1 * Jt^tsUJ), 


DATA PUKTHULU I LNDl 

WKIffc (B. 2043 ) HFD 
IF (lbTA 1 «bD« 0 ) GU TO 10 


C 


SET tiMfc 1NTEGRA-T40N CuEFf tdENta IN CAGE OF OYNAMI-C RROOLbM 

CAUL OPUOkFIOPVAR)— 

10 IF ( lUPb .UUk 1 ) THaOPVAR-l I > 

IF I IDAImH .GT*4 » GO TO d90 
WRITUC 6.2040 1 
NCAK 03 1 

#R ITUt O..2 0SS T NCARO 

JbiJI ^=»T‘^*F>r.T‘,;TAKT.iDAT*w 

| 6*.^020) l-RlNT*t TRu«»* 4 (^pf jHT .JNPUKI 

N <,. AW- 1>« *2. 

»R ITCI t»,2 OSS ) NCARO 

4RI TblO. .:00d > tNAsS. lOANP. I MASSN. 1 J AMPN 

N<C AW Us J 

MWXTEI B.20SSI NCAHO 

4W IT tI 6, 2001.) 16 IG - 

NCAMD a 4 


I 


or.or.n o r.r.n 


ORfGINAL HA. :l r j 
OF POOR gUALilY 


A3-2J 


AOim JAT£ = ai££9 39/ia/44 

«RttE (.6*203S^ NCAPO- 
V»«lTt (6•.^00S)^ IUP6 

It- r iLjpe.*Ea*u w«i.TEt«>*aoo&> cm>vah4D 

IF < iaPe.E.U*^jL_JWftltE(6.20Q7-y □f»VAfUn .OftVAKUi 

NCAt^OsS 

•Httecbi^oas) NCARO 

WRITE (to.^003) NSRi^d,f4ealTa*l-TEMAX.RTa. 

PRINT DI aPU/VEL/ACC aUTaui_l NFORNAT I ON 


NCARO«6 

WR Li EC.6* 20S5 ) NC ARO 

WRI TE (a.Z012) NRRtB*NPS-«10C*iVC* lAC 
nCaROs?^ 

WRtT£t6.2053> NdARO 

WRITE ( t>«2l 00) NPU-TSV»NaOSV8*UEMSVa 
WRITE (6*2103) UUNOUEti-Ul •LvJ2'*EUO »0DC • JVC* JAC- 
IF (NSWEFb*i'4E*0 .()R^_NEOiTlT*Nc .^)- oC TC 8-10 
IF L. NPR IB*NE*jO .UR* . JNPJR-T.NE.O) 30 TU 6l 0 

LF (NRB.NE.4 .OR. t IPNOOet t * I ) .NE.): .OR. 1 PNUJEU 2 • 1 ) *N£ •NOWN'* ) ) 
I <*U TO BIO 
GO TO 890 

814 WRITE (6*2110) 

8ii0 IF (NSREFU.EO.0). CO TO 830 
WRITE (4JI..2120) 

write (6*2130) (3*(3*l.SREF'8(I*J)»Ist*3)*JsUN3REFB) 

830 IF (NCOITB.Ea.a) GO TU 840 
WRITE. (6*214 0-)- 

MRltE (0*2150) ( 3*( J.lEOtrat 1* 3) il^I *30 •3»i*NCUlTB) 

840 IF (NPRI8.E0.4) GO TU 880 
WRi.TE (6.2160) 

WRITE (6.2170) C3*(3.» tPRl8( 1 • j) * I .3 ) »4a 1 (NPRlU) 

880 IF ( IPNODEl 1 .D.EO.I .ANU. IPNUOE(2 . 1 ) .EG. i^MNP) GO TO 880 
WRITE C6.2L80) 

write (6.2140) ( J.lJ.lPNOOeCI. J) .is'l »3.)-« Jal.NPd) 

860 IF tNa08V8»£a.0) 60 TU 870 
WRITE (6*220 0) 

HRltE (6.2210) (3*(J« tN038(I *3) .Ii^l .3) *.Jjk1-«N3USV8) 

870 IF (LERSVd.EO.O) GU TU 880 
WRITE (6*2230) 

WRITE. (6*2230) (3»(3* IEEMB( 1 *.3) * I a L *3 ) *34 l*L£<RSVi3) 

880 WHITE (6.2 004) I 8TAt*JU_iN 

890 CONTINUE 

RTUl*RTOL w-RTUi. 

ONURMHsO .0 0001 


READ N3 0AU PO 1 14...-T O A T A 


NOAsNO ♦ NEGNL 
Nl*N0A 4- NcGNE F 1 
N2=N1. f NOUF4NUMNP 
N3WN2 *■ RUMNP41. r«u 
.N4sN3 F .WRN/HiTWO 
N63N4 F NUMNPWITwO 
CAEE 8I2&( N'j ) 


A3-^8 




0F POOR QOi 


AOINL . JAT£-a__dl 2 a^ 34 /lB/AA 


CAUL. INPUT ( A(N 1 > .MN 2 >*.A( N 3 ) ♦ AT NA) »NUMNP * NUUP .NEa^-MOOliX-l .. 

NJ-H2 ♦ NEQ*lTWO 
n4=n.t ♦ Nta*ijr.ii(u 
NSj^NLA *■ NtU*ITWO. 

Ih c ISTAf.Ea^X)) N5*N3 

Mt>=NS ♦ NEU*! rwa 

CALL Si2E TN6» 

« ^ ^ o L o * a vector c o^V^Vk^Tm o r 

WEAU tS+lOlO) NuaAO»NTPN,Nt»TM. I0v»RAV.NPa2.NP«3-*lPRTVP 

t I TE^i 6 * 2 oi$ Nl^aAO ♦NI'PNoNPTM.IOii-RA.V .NP( 42 *NPR 3 • T-PRT-YP' 

IF t iaURAV*EU».3 •OR* i S^T AT-.EUU.i3J — ^iO ..fO 23 
IF (1MAS3.EJ.U GO TO 25 
WHITE lb.J023) 

STOP- 

2‘j NU0E3a4 

U- ( IPH TYP.E ).l ) NOOE3-=a 
IF I lPRTYP.Ea.2l NOOEJS12 


L 3 T A O L 
MAS 


I 

S 


5 


M CONCENT R. A TEU NO- OA-L 
A N O D A— M P I NG VECTORS 


call NOOMAS (A(Nl 1 .Al NSF »ND 0 FJ 


HEAD. INI riA L — CONQiTIO NS 


C.ALL INITAL (A(N 2 ).A(N. 5 J .A(N 3 ).AINA).A(N 1 > •NOOF) 

HfclNSLATL NOJAL COROl NATES INTO SPEEO STORAGE FROM TAPE 9 

HLWlNU 9 

nJ-N 2 ♦ NOMN‘»AITWO 
♦ NOMNP*tTwO 
N‘j=(^ 4 , ♦- NUMNP^I-TWO 
NN=NJ - 1 

HLAO { 9 > IA( I >#I^N 2 .NN) 

NN=N 4 •• I 

HEAO (V) ( A( I >.i.sK 3 .NN> 

NNiNlS * I 

HEAO- I 9 I I A( I » . I -sNA.NNJ . . 

uO To 390 


CALCULATE 


A N O 


STORE 


L O A— O. 


V-.E.-C -1 O R S 


0F51GINAL PALlu IS 
OP POOR QUALITY ... 


A3-29- 


AOmi 


JAt£-a aX2^9 


•C 3 C 

JO 

599 


CALL. 


JO CALL 
LOA& 


Qtf e >*L A.Y t SH Aq tK A , I #.i.»5H«£CAAJ- X 


09/19/AA 


coNjriNue 
kCfURN. 
1000.. FORM AT 
100.1 f'ORMAt 

100^ format 
iooj..Fa«4Ar 
1005 FORMAT 
lOiO FORMAT 

i-OiiO Format 
HOC purmat 


( 12A6)- 
( 4l 5» 
t.2 i S» 

( 1 J .5 n . I 4 ^ Jt.5 . 2F 1 jO.« a« 6 UJ . 
to 15 ►F tO*OX- 
( 161.5 ) 

( LtO.* 7 F 10 . 0 ) 

( 1515 .SX X 


2000 PCWM AT( / ,SX ♦- 
25.SMi'»UM0tiR OF 
JSSH.MAaTER 
JSSHMASTtR 
3 65m.MA5T£R 
35SHMA5TER 
3S5HMA.5Tfc.R 
JbSHMAStEk 
4S5HNOMS6R 
5 56rtNaM8fc« 


’ 4 •. 


_ NODAL FOI NTS •. . 
X-TRANSLATtON-COOe •. . 

V- translation, cooe . .• 

X.-TRAN5LAILON CODE » 

x-rotation code *. • . 

y*ROTATlJN CODE » • • . • 
i-RDTATIDN CODE 

OF linear element groups • « 

E55M £Q*0* OA.TA check • • • 

F55H EU*l* EXECUTION 

G55M E0.2» RESTART 

2001 FORMAT (./5X, 

HuSHFREaUE-NCIES SOLUTION COD£ • , 

F RE OUENCIES solution 
^J jeaufeWlES AND ‘MODE-^APES 
ARt Oc-TERMINED 

2D02 FORMAT (/4X* 

ASbH NUMBER OF TIME STEPS * • 

asoH Time step increment ♦ 

C X • 

^i-ME at SULU-r ION. start , ♦ *_..* 


(NUMMP); 

-< I DOF-(.l ) X 
(TOOF“t2)-X 
t IDOF (31) 
( l 430 F-(. 4 ) ) 
< tOOF(SX) 

.<.100r(6) ) 

(NEOL) 

CnEonl ) 

( MODEXX 


*. 15 / / 5 x, 
a..L 5 // 5 X.* 
IS//SA. 
a. I 5 // 5 X 4 
a. X 5 // 6 X* 
= .X 5 // 5 X,. 
F*. 15 //bX. 
a. 43 // 5 X. 
* .JS//&X4. 
a . 15 / 5 X, 
/ 5 X,. 
/5X. 
h. 


• (lEiG) — =• tS- 


4 - 


F 

G 

H 

t 

J 

tk 

L 

f4 


4 tHSt El , 

• tar 4 


^ { tSJt •A//. 


/SXt 

/BXr 


a IS/ /0.x* 
I ♦Jk/-/ 


1J4AUE 


£a»u 




ano/dr 

XXOAfWHX 


Stimut*OF l35r.f ^ OSf^AlLko 

ONLY Dt tailed OUTpuT OF INPU-T DATA. 

A CARD 1 MACE lIsTING OF INPUT— DATA 

NO UE Tailed output nor ^«o imamT 

LISTING UF input DATA 

■URINTX 
XITP95> 


al 5 


55H 
55H 
SSH 
56H 
55H 
55H 

2020 FORMAT (/5X. 

T55HRESTART save INTERVAL • » 4 . . ^ 

U55H temper A TORE TAPE . I I * f, ^ * 

t'e mpErature Tape not useo«/sx. 

M JOH E-U. I » TEMPERATURE TAPE USED .//SX.*. 

s S5H EO^ pShSI^^ NOT^riVtln * * tJ.MPORTX . 15 


/5X4 

/4X4. 

~/4A. 

/4X. 

/4X.. 

/4X.. 

/4X. 

X 


4. 15//SX. 
a.ldX5JU . 


« .«UlNPaRT)_ «45- 


/4X, 

/4X*. 

/4X» 

// 5 X 

/4X,. 

/AX, 


/V3-30 


OF ROOR QUALVlV- 


AOiNt . . 

h>ORTHOce: wftt.TTt:f4 


JiAte a. ai 22 § 


J 9 / ia /44 


T 5bH EU.-1 . 

2003 FOR.4AT (/.4X, 

A S5H NU. Uf BLQCiCS OF EFFECfiVE- StlFFRESb 
a56« reformat lUN TIME StEf»a * • . . * e 

C 55M £0.4j* NO stiffness REF ORMAt lUN 

L) bSH NO* OF GL.OCKS UF EQUIEIURIUM 
ESOH ITLRAtlON TtME STtFS • ► * 


I Cbtdft EFU > 


PERFuRMED 


F bSH LO.Ot NO EQUlElSRIiiM i-TERAtTON 
X55HMAXiM-UM iNOMBER OF EUOl-LtURiUM 
^tbbM IttRATlONS PERMTtTEO «. • 

I- S5H CONVER(iENCe TOi.ERAJNCE .. • •• • 

2aOA FORMAT ( IWO *////• iX* 

AG2MA N. A L Y -S 1 S- t Y- P E t ESTA3LI Sh«D -UB-lNa 

a/>r.sx. 

abbHT iME ' OEPENDENCY CODE ♦ . . 

CSSH EQ^O. STATIC ANALYSIS 

UbbM Ea.l# OYNAMtC ANALYSIS 

ESbHNONLINEARl TY CODE 
Fbbrt EQ*0. linear ANALVSX S 

gsSh eu-i* nonlinear analysis 

2005 format t/5X*. 

155MTIME Integration CODE • • • •• 

2S5M Ea*lL MU.SONS THETA METHOO 

3bbH E0»2* NEWMARXS ME.THOD' 

435H E0.-3f CENTHAU Oi-FFERENCB 

2006 FORMAT (SX« 

tSSHlNTEGKATION PARAMeT'ER • . ♦ 

2007 FORMAT CSX. 
t 55HINTEGRATI0N PARAMETERS 
2bbH 

2012 FORMAT ( /4X. 

A 55H NU* OF SLOCKS OP TIME 
B56M ASbOClATEO QUANTITIES 
C 55H tU*0. NO PR I Nt-OUT 

BSbMNUMaER OF BLOCKS OF NOOAL PRlNtOUt • • 


.(NEQlTa) 


(XTEMAXO 

(RTOLL 


7->rl_ 

/AX^- 
-jMS.. /4X. 
//aX» 
/4X. - 
a 15 /AX,. 
//SX.. 
/5X, 
». IS//5X. 
*E4,I-«A L 


iJiASS tiiiE vM^»NEiiNL I 


UStAT) 


{ KL IN ) 


( lOPEl 


METHOO- 


**IS /SX,. 

/sx* 

//Sx. 

A.IS./SX*. 

✓5X*_ 

I 

= .IS /5X-* 

• /, sx« _ 

sx* 

• / * mSX I 


» iTNETAl- 4,F5«2) 




STEPS 

print* 


FuR 

•OUT 


NODAL AND 


C55HO ISPLACEMENT PRIMTOOT CODE 


«■ 


ObbH EQ.O* 
EbbH EU.l. 
F ‘ibrtVELUC ITY 
GSbH EQ.O. 
Mb5H ECU!* 


NO PRINTING OF D ISFLACEMENTS 
PRINT displacements 
PRINTOUT CODE * •.»*•* • ^ « < 

NO printing of— veljqci ties 

PRINT velocities 
I bSMACCELERAT I on PRINTOUT CODE •• •- • • • • •. < 

JbbH EU.O*. NO PRIN-Tl-NG OF ACCELEHA TT QNS 
KSbM EU^l* PHtNT ACCELERATI ONS. 

2008 Format t/sx* 

tSSHMASS MATRIX CODE » *-* » •- » • » -•—•....■4 

25bH EQ.O. NO MASS EFFECTS 
35bH to. l.-LUMI^eo MASS 
4S5H EU.2. CONSISTENT HASS 

bbSHDAMPlNG MATRIX CODE » -» • • i 

65SH EQ*0* NU DAMPING 

T^SH tO»l. DAMPING INCLUDED 

abbHNUMBtR UF NODAL MASSES • *. • • *. «- < 

M5SHN UMBER UF NOUAL DAMPts-RS • ■ *. »■ • ». * •-i 

2010 FORMAT (1HI.34K LOAD CONTROL iX 

1 J8M NUMBER UF EOAOS « 

2 38H number of tlME FUNCTIONS 

3 JSH MAX number of POINTS IN LOAD CURVES 


<.0£.ETA) 

(AceHAI.- 

ELEMENT 
• (NPRtB) 

* (.NPdl 

• * < IOC) 


.—I I VCL 


LtAC ) 


».F5«2/SX 
= ,F'5.2)- 

/4X, 
= 15 /4-X.- 
//SX^ 
iS/XS-X,. 
= . IS -/5X, 
/bX^.. 
//SX*. 
S. IS- /SX* 
/bX. 
//‘SX, 

=» IS /bX* 
/SX, 

I 


_*._U MASSJ- »* IS /Sx,... 

/SX,.. 

/SX, 

//SX,- 

(10AM.EJL «*1S /SX* 
/SX, 
//SX*. 

, ( IMASSN) *^,I5//SX, 

■ , i lOAMPN) =• lb I 
A r A // AX, 

» l4i X AX , — — 

• IS. X AX, 

*tb / 4X, 


« 






. 1 . 11.1 lilJlIii 


ORlfik’AL PAG2 IS 

OF f»OOI^ QUALITY 


AU-l Ni 


JAfE a 6122,^. 


3 9/ I 6/ 4 A 


4 JBH GKAVITY LJAOINU CO^E • • <(tk>GRAV) = »15-/ 4X«- 

‘i J8h tG.O* NU GHAVITY LJAUI NG- / AX^ 

6 38H EU.l. LUMPEU GRAVITY UUAO^^*G «/*AX* 

/ J8H NUMtiER O 2/0 PRESSURE LOAO SET'S =g.I5- A 4X. 

a JSH number of S/U pressure LOAO SETS sgXS/L«4X« 

9 31 H MAX ORDER OF ANY ELEMENT FUR /- ,4X*. 

A 2SH S/O Pi^SSURE LUAO SETS — * 1 2X . IH- . 15XX/ i_. 

20A0 format! IH l , I 2 AS ,///) 

20 45 FORMAT (38H MASTER Ca.MTRO I C A 0’ S ) 

2055 FoRMAT-I ///» I X» 12HCARD NUMBER *11) 

2100 FORMAT (./»4X» 

porthole creation control CARIX 

FLAG FOR SAVIf 4G INPUT DATA UN- TAPE • . . • (NPUTSV)- 

EO*0. WRITE ONLY MAIN HEADER 
EU*1. WRITE ALL INPUT DATA ON. PURTfc*OL£. 

NU* OF BLOCKS OF TIME STEPS FOR SAVING 
NODAL RESPONSES ON TAPE » • • • • ... • ».. -(NODSVe) 


A 

B 

C 

D 

E 

F 

G 

M 

I 

J 


55 H 

55 H 

e> 5 H 

55 H 

55 H 

b5H 

S 5 H 

5 bH 

b 


2105 FQKMAT (/. 4 X* 

K 55 H NUDt; DATA 


tU .09 Nu ACTION 
NU*. UF ntOCMib UF TIMt STFPS 
eUEMENT RESPONSE -S UN T^PE 
EU# 0 t Na^AC^TION 


FOR SA-VitiO, 


L b:j*H 
M 55 H 
N S 5 H 
A bSH 
B 55 H 
C 53 H 
L> 55 M 
£ ‘. 35 H 
F 

M 55 H 
1 55 H 

2 il 0 FORMAT 

1 ) 

^ 12 t) FORMAT 


SAVE 
TRUSS/d£AM/riE 
2/D continuum 
j/0 continuum 


TAPE 

TAPE 

TAPE 

TAPE 


NUMBER 

NUMBER 

NUMBER 

number 




DibPL.ACLIAENT SAVE CODE « ♦ • - • * *- *.*.• 


(LEMSVB) 


(J.UNOOE) 

(LUl) 

TLU 2 -) 

( LU 3 ) 

< JDC) 


e-a«o, NO SAVING OF displacements. 

EG* 1 . SAVE displacements ON PORTHOLE 
VELOCITY SAVE CODE •• . * • * (JVC). 

LO.O , NO SAVING OF VELOCITIES 
EU»l* SAVE VELOCITIES ON PORTHOLE 
ACCELERATION SAVE CODE • (JAC) 

EO.O. NO SAVING OF ACCELERATIONS 
fcU.lt SAVE ACCELERATIONS ON PORTHOLE 


I iHi t ‘ 5 Xt 4 fiH 


S 0 L O T I O N a e t 4 I .l 


//y4.x*. 
= IS /4X*. 
y» 4 x. 
/MX*- 
/4X* 
a 1 3. /4X* 
//4X* 
/4X* 
a IS /4X* 

/ ) 

» IS/XAX, 
*4.5/ /4J<*, 
*IS//4X*. 
S15//4X, 
*15 /4X* 
/ 4 X* 
//AX* 
*tS. /AX. 
/A.X* 
/./4X* 
*15 /4X*_ 
/4X*. 
//> 
a s 


C A-R 


{/. 5 X, 90 H IA> 

INESS MATRIX REFORMATION 
2130 FOR.MAT ( / . 4 X t 
A 7 H BLOCK t 12 

B 46 H FIRST STEP OK THIS BLOCK 

C 40 H LAST STEP OF THIS v)LOCK 

D 46 H INCRLMENT IN TIME S-TEP . 
2140 - FORMAT (/,SX.ajM 10 ) BLOCK 

IRATION TIME STEPS 
2150 FORMAT l/, 4 Xt 
A 7 H BLOCK « 12 

B 4 GH first STEP OF THIS BLOCK 

C 46 H last step OF THIS BLOCK 

D 40 H INCREMENT IN TIME STEP • 
2 IoO FORMAT (/* 5 XiB 0 H (C) BLOCK 

I STEPS 

2i70 FORMAT I/*4Xt 
A 7 H block . LO 

B 46 H first step of THI S BLOCK 

C 46 H last jTEP of THIS BLOCx 

0 46 H increment IN TIME STf.P , 


BLOCK DEFlNl T ION- CAROS FOP 
T I .ME S TE PS ) 


Ef pec T ive.- S T-I EE. 


DEFI.NfT-lON 

) 


• *• * 

• - • * 

OEFINITION 

I 


//tK, 

( 1 SPEF B4 i .4 2 * 3H) ) * 15 /rx* 

(.tSREFB(2*12.3H.) )* 15 /7X*. 
I iSREF B( 3* I..42. BHl T* 15 X) 
CARDS FOR E0U4C10RXUM. TTE 


// 7 X-.. 

U-Eoir pM.-t£.-3K) >* L5 /rx*. 

( 14£Q XT 04.2*4 2 . 5H> )* XS- / 7X*_ 
(4EUltB(3* t2*BH).)s 15 A) 
CAROS FOR PR INF -oat T I.ME 


//7X* 

*. { lPRl d( X*X 2 * 3 H) )a l-S /rx.. 

« I IPRI 842 * I 2 . 0 H) )» IS /rx. 

• I iPRi 8 ( 3 , U . JH) )* Is /) 





l\Z= 2 Z 


AO Ml 

2^ AO FOKMAT tA*.5X# 8.0ti. (I» QUQCK 

4 PftlNt«»OUT 
2190 FOKMAf ( / 1 4X . ^ 

a A^. F IKSX. NJDE OF tHt^ dCOCK 

C 46H uAST (AUOe UF^ THIS OLOCK- 

D 46K INCftEHENT I N -HUOfi NUHOE-R 

2200 FORiAAt t/.SX*aOH- C£> 3UOCA 

lA-VilMG NUOAL. RESPONSE 

2210 FORM AT ( /-»~A X « 

B 46H F IRST ItEP OF- THXS Sl-OCX. 

C A6H L.AST STEP OF THl S. BLOC A 

D 4«>rt INCReMEM-f IH TTME -ST^_ ^ 
2220 FORMAT < '' • BLOCK 

lAVlHG ELtME.iT RtSPONSbS 
2230 FORMAT (/*.4X_* 

B 46H FIRST StIr OF THIS BLOCK 
C 4oK LAST- STEP SLOCK 

0 46M ItiCREMENT IN TlMfc STEP 


JATE 84229, 


09 / 48 /-A 4 


OEFLNl TION 
1 


CAROS FOft NODAL PAftAMjElEA 


A/rx,. 

• . . u PNODEU \ f 

l t.PNOBEt2-. l2'»3HT)* if - 

*. * . UJ»NUD£(3, ta .4H) IM - 

OEFlNiTlUa CAftOS -OF T t ME STEPS FOR S 

) 

* . t. 1^4U0B(lt42;,aMUa-lS A7X. 

( INOOd(2vI2 - 15 --/7X*. 

*. , . ( INUDat 3 ^ 12 * 3 H 3 »a - 

definition CAROS OF T LM£ STjEI»S_FOR R 
1 


/✓ 7 X* 
-IS /7X«. 
IS /7X* 
IS /) 


._ , ... (..lELMeU*.ia-.-3M). IP 

. . . . (. lEl.Md(2>i2v3HI Is 

, . . (- ll=LMS( 3 »I 2 .^Us 

tiir ill? S.\!l??.S?/ru2.‘ 

I STOP ERRUft tti tA.10**-l3H i 

1 14H PIHST STEP 0F.I5»36HTH BLOCK LS LARUbR, T44AN LAST- sTtP OP*XSk- 

300;? ‘kuRMAT^^I/Z/ASH^'* '♦STOP - IMASS MUST BE St .0 . I F^ CONCENTRATED- - 

3002 FURMAT DAMPERS ARE SPECIFIED I -- 

3003 FORMAT! ///42M ••STOP •* ieiO*OT*l -NOT - PbRM4.Tt.EO IN THIS 

«i 19HVERSI0N OF ADINA** . 

3010 FORMAT t /77* WT. lOOH •4ST0PPP lEIg^TjrO 
I IFFERENCE METHOD 1> P L^,2f 

3012 FURMAT (///.IMI*60H ♦♦SlOP44 I. MASS MUST 

302o‘FOMMlT^f///aM1.7SH **ST0P4* IMASS MUST BE £0. 1 FOR OTNAMIC ANALV 
ISIS INCLUDING GRAVITY bOADS 1- 

END 


NOT PERMITTED IF CENTRAL 0 
INTEGRATlgN ,,1^=- 

BE Eu» t for central OiTFFE 




>'< 


T’ 




ORlGnUAL 

Of fioQff 


fjj' 

QUALltY 


A3-33 


FORTRAN tv G1 — RfiLEASE ^•0 


AOlNI DATE ^-d 1229 - 


PORTIONS m EFFECTA NUTERM, LO , EBCDl C *S0U«Cfc.N04.1 Stl.NaOcCK.,LQAO »NUi4AP - 

♦ OPTIONS IN EFFECT* NAME = AO INI »H NECNT. = 60 

♦ STATISTICS* SOURCE STATEMENTS = TSS^PROOrtAM SIZE « 22912 

♦STATISTICS* NO DIAGNOSTICS GENERATED 




OF pooft QUAUTY 


A 3 ^ 4 - 


MAIN 


OAT£ » 8122 $ 


0 $/ 482 A 4 


♦^OC*’ *a€CK. INLl i-T 

tXAtA SET CU3AOS- At LE-VEL— T MP-AS OP- Od217/ai .. 

♦-COC* ♦OECK CL.OAOS- 

SUa«duTiNE_CLdADS ( la. WG.R* riMW*i<V. PMASS.MASS.. NdH*.NCUlR»lOiftN*PAC. . 
I ARTM.Kl.*Hiia.T:«NTFNd*.NOUfU 

SUQR 43 UT iNt 

L* TO REAJ the time. FONCTtONS AND CALCULAT £-tME- 
FUWCT I ONAL. VALUES AT. REQUESTED POINTS. 

2.- ra calculate the GRAVITV LOAUlNa— 

J. TO -read CONCENTiU.T£4> NOQAL C^ADS 

4. TO Calculate the load vectors. cjRHESPUNOihui.. 

To. THE CQNCENTRATEO LOADS 


V A R r A S L_£ S 0 


ID s ARRAY OP BOUNDARY CONDITION. CODES 

RG = Interpolated values of time functions. .. 

R a LOAD. VECTOR 

riMV*RV = ABSCI.SSA AND ORDINATES OF TIME FUNCTIONS 
NOD * NODAL. POINTS TO WHICH LOADS ARE- APPLIED 

NCUR «- TIME FUNCTION NaABERS OF LOAOS - 

lOIHN * DIRECTION COOES OF LOAOS 

FAC = multiplier of LOAOS 

ARTM a ARRIVAL TIMES OS LOADS 

KL = INCREMENTS IN NODES FOR GENERATION 


IMPuICIT REALWa (A«H*0-*2) 

COMM ON / SUL/ NUMNP »NE Q • NMK • N WM t NWC »N0MES T *. Ml OEST » M AK EST » NST E* M A 
COMMON /CONST/ DT*DTA • AO * A l.»A2* AS» A4 . ASt AS »A7. AB « A9 • AID*. Ai 1 
1 »A12«AI3>A14»A15»AI6* Al-7 * A 1 8 *A 1 $ * A20 * I OPE 

COMMON /VAR/ NG.MOO£X.»I.UPOT*KS.TEP.lTEMAX*I.EaREF.ITE,KPRIt 

1. IREF* lEQUTTtIPRT •XPLUtN.MPLUTS 
COMMON /AOINAI/ OPVARt 7> . TSt ART * IRIHI » 1ST OTE_ 

COMMON- /MOFRDM/ lUOFtS) 

common /LUA/ tEND*NTFN.NPTM.NL0AD.lDGRAV..NPR2.NPR3»N00ES 
COMMON /RRCON/ IDATmR* IPP lC.NPBt IOC* I VC* I AC* IPC. iPNODEI 3»1 5i . 
COMMON /BEAR/ 1 BEAR , MTOTB 

D IMENSION ID (NOOFt-l ) *RG(NTFND* L) «R( 1 ) .TI MV ( 1 ) *.RV.(.n«.RMASS( LU 
I NOO(.U *IOIRN(l^*-NeURtl) .FACUI .AKTMl l 4 »KLtU 

2. .RGST(t).MASS(l> 

O IME NS ION T HOC 1001 #SPM I 00 ); 


THOCn • iNtTjAL PHASE ANGLE OF ROTATING IMBALANCE LOAD • 


SP( I I 


APPLIED AT node I 

ROTAtLNG speed UF IMOAlANGE LOAD APPLIED AT 


NUDE I 


A3=3S. 


OHlGimi ['AG'c P3 

OF POOR QOALlfY 


CLQAOS 


OAte s 


(w<ta/A4 


c 

c 

c 

c 

e 


c 

c 

c 

c 

c 


c 

c 

c 


RC^IMO 3 

REWtNO Ai 

REAO (a) (U&tl. JiilstiiNDtJF) .J = t*NJMNPA 

CAUCUUATLON OF TIME FUNCTION DATA AT AUL TIME FOINTa 

If tNSTE.EQ.OV return 

IF ( NT F N . 0 T • 0 ) GO ... TO 6 Q - 

DO AO iJfl.NEO 
AO R(t)aO* 

DO 50 K«L*NStE 
50 WR-lTe <3i (J? ( I ) » I*l tNEU.) 

RETURN 

60 CALL TFUNCT ( RG » TI MV tRV .RGSTtNTFN.N$TE.»;^OOcX .T ST ART* DT» DTA J 
CAL.CULATE GRAVITY UOADING 
NSTEG=0 

IF { 10GRAV»EQ*0) GO TO 100 

CALC GRAVL ( ID. IDOF ♦MASS»RMASS,R,RG *NUMNF* NDJF »NEQ*NTFN. NSTEG. 

Jl ^ MOOEX) 

ADO CONCENTRATED LOADI-NG . 

100 IF ( N3TEG.EQ*^STE) RETURN 


«(RI 


2 001) 


C 

C 

c 

c 

c 


EMPLOYED ONLY FOR 


C 

c 


IF (NLOAD.EQ.O) GO TO 120 
IF ( 10AT«iR»L£»l •AN0*I3EAR»EQ»4 ) 

IF (IDEAR.EU*!) GO TO 102 
IF ( lOATWK.LE*!) WRITE (5*,2i)J>0) 

102 CONTINUE 

READ imbalance LOAD- INF0RMAT4 0N 
ROTOR BEARING TYPE PROBLEM’S 

IF' (1BEAK*EQ«1) READ 15*1001) (NOOI-I ) • IDlR^'lt.i ) *NCURT I.)-*F ACt 1 ) * 
1 AR TM I I ) « KL( 1 ) * THOt 1 ) * SPt 1 1 * 1 =* t rNLOAD I 

READ (5*1000) ( NOD 1 1 ) * ID I RN ( I ) »NCUrt ( I )• *FAC ( I ) * ART.H.tl ) • KL ( I ).* 

I lOEBU ■ *1*1 *NLOAO) 

101 KL(NLOAO)sO 

DO 13N IsltMLOAD 

IF t-luEAK *£.^ WRITE (6*2011) NODCl ) • 101 RN 1 1 ) • i>(C')R’Cl ) *.FACt.l ) * 

i AHTM( I ) *KL«.) . tHU( I ) .SPtl I 

IF ( 10EAR-*Ca • t ) iO TQ 139 

I3R CONTINUE 


120 IF (MODtX*ED.O) RETURN 


uuuu Uuu 









OltUalNAL FAtV£ IS 
OF POOR QUAUTY- 


A3-36 


DAT£ 


CLOAOS 

NLUaNSTEa ¥ I 
DU 200 KaNU,*NST£ 

DO. 2-10 ial*N60 - 

210 R(t)aa. 

ir»-4 NL0AO *eQ«0) GO ..TO 260- 

DO 220 Ls 1,.N1.0AO 
L IslOIFU4( L) 

te I lOQt^in ) •£q».u ao to 220 

U OOFaU I. 

LNssMOO(A.) 

ARTMT«AHTM( L ) 

rACTaf^AUi.). 

LCsNCUR( U) 

IP (KLiL)»SQ»0i 00 TO 222' 

PAft'TM* C'^RTM tl» ♦ I ) ■“ AMT- M( L.) > /( ( NOO.tL+'l ) « -NOD<J_ ) I ^iCLf-i it 

OO^I5S‘|i^Si6» ' 

Iff ( 1D0P( il^ea. u lIslj - i 
N S TEAsArt TrtT/ J.T 
NSTei^'sK • i>4STfeA. 

IF ( NSTEF «i.£ • 0) GO TO 226 
AfACTaNSTEA -• AlUMT/OT + 1* 

X IstOt L,1 «X.N> 

IF ( Il.LE^O) GO TO 226. 

RGFRaRGCLt »NST£F) 

IF ( ARTMT.eO *0*) GO TO 240 


09/16/44 


222 

230 

224 


♦ RGFR4A.-ACT. 


240 


RGFRaRGsTtLC )♦•( 1^0 - AFAGT) 

IF ( NST£F*LE *U CO TO 240 

ADO HORIZONTAL IM&ALANCE LOAD COMPdJUENT TO EXTERNAI LOAD VECTOR 


C 

c 


O.TMO(L.) . SP*U) 

R( 1 1 >=RX U V4RGFRiF&frjca6(liio7L)4^ 

ADO vertical imbalance LOAD. COMRONENT TO. EXTERNAL LOAD VECTOR 

GO * t O ^ 246^ ^ ^ ^ RGFR *F AC T* D 6 1 N ( THO LLJ ♦ SP ( L J *0 T *K I 

245 R ( 1 1 laR < 1 i 1>RGFR *F ACT 

246 CONTINUE 

226 IF LKL(L)-.£0*0) GO TO 220 
LNaLN ♦ kL(L) 

IF (LN.*G£,NOO(L4ll) GO TO 220 
FACfafACT ♦ FI NCR 

ARf 4 TaARfMt DART . 4 

GO TO 224 

220 Continue 


260 IF { lDGRAV*ea*OJ GO TO 362 
UO 360 laUNEO 


A3-37 




13 


np PQQft 


QUAUffV 


CLOAOS 3ATt a 812^^ 09/13>U^4^ - 

J60 AU)aR(i) RMASSdJ 
362 «RIT£. C3 )l. (R.( n .1 x1 *n£Q) 

C MR-lTb. C6.320a) tdCrUl i .1x1 *M£Q) 

3000 FdR'UT (5X*•T1^4£ STEP- • . 18 *5X* *R 1 1 ) (CLC)AdS.» i *-»V/ .5X. 8 { 3X. 01 2.S ) } 

( IOEBUG.EU.5) .MUITE (6*6000) i»( U-* (x i .nEUJU 

200-CONJlNUE - - 

C 

RETU«N- 

1000 FORMAT ( 31 5. iFl 0^. 0 ♦ tS*-5X*( 5 ) 
tool FORMAT C J15.2FT0. 0.15. 2Fl 0.0) 

2000 FORMAT l////4Srt C 0 N C E M -T R A T E O O O A O 5 O- A T- A//- <kX. 

1 53M NQOE DIRECTION LOAD- CURVE LOAD CURVE MULT IPO- • 

2 5 OH. ARRIVAL TIME NUOE 3ENERATIUN. 1 

2001 Format (/✓//• a e a r i. n o-. concentrated l. d a 

IDS oat a •///■* AX »• NODE direction LOAD CURVE LOAD- CJRV 

2E MULTIPL arrival TIME . NODE UENEKATIUN INITIAL ANULE -OAO— 
3R0TATINU SPEED*) 

2010 FORMAT ( IHO. 2X . I 5 . 3X..I A. OX* I A* 9X *£1.3 .5 .8X « El 2. A. 7X* 1 SI 
201L FORMAT ( IHO. 2X* 1 5 *SX * I A* OX. I A . 9X.EI 3 . 3 *8X .EL2*a.2X-* 13 *6X . 

1 E13. 5*SX.»E13.3) 

6000 format {tOFl2^5/) 

END 


A3*3S 


ORIGINAL F.V '- tJ 

OF POOR OUALltV 


FQfiTDAN IV G1 RELEASE 2*0 CEOADS JATE ai2E9 


♦ CRT lOMS. IN . erFECr* NUteftM.*JO.£BCOiC . SOURCE. NOUI-ST..J^aOCCK.I-OAO *NOMAf> 
*Ol»TIONS IN effect* name: = CLOAOS * LlNECNt 5 60 

*STATl&ttCSA source STATEMENTS » 1 OUPROCRAM. SlES -A 62AS 

♦STATISTICS* NO DIAGNOSTICS GENEttA-tED 


Ooouou uuoououo O ooo u o o uOu uiauw 


A3W39 


ORIGINAL PAC^ 
nc POOR QUAUfY 


MAIN 

DATA SET COL50L 


OATS S 1229.. 

AT-LSVEA Tm#> as of OS/ 17/31 


09/1S/A4 


♦COCA AOECA COL SOL 
♦ UNl* )FOft.lS N^COUSOL* fUCOLSaL 

^SUaftOOTlNE-COLSOL^ 1 N«Id|<kS^'^ * * *3 • NEO. NSLOCK..-lSTOfti- 


PROGRAM 


T®— ^^mi-te Element static e'ouilisriijm eouattqms jlit^qp*” 

CORE* USING COMPACTED STORAGE AND COLUMN HEOUCTUON. SCNEME t~. 


IMPLtCI-T REAL *3 (A<-H.O*2) 

COMMON /ELS TP/ TIME.IDTHF 

1 iSS^iKLlSw*£lS^{ SJkKlfl OaAto“‘- ‘ 

COMMON /RAnDI/ NOA*NlO.*ieLCPL 
DIMENSION A( ISTORLl *B( lSTaRLJ*D<NEQ).*Vtl 1 
INTEGER I COPL( I ) .NC0L3 Vt U .MAXAtl^ !. iV 


KHBa.aO 

IF CKKK»2) t0.dlC*610 
10 REWIND NSTIF 
PlVOTs 10. **20 


factor t2£ STIFFNESS MATRIX 
DO 600 NJai,MS(_DCK 


( LOOP OVER ALL BLOCKS ) «■ - 


read (NSTIF) a 

1 fA(I)*lal,lSTOHL) 

^^^NCOLbInCOLBV(NJ1-^'^^^^ matrix (XDLSOL) J •.//,SX*JiL2X.,01.S.6)X. 
MMaMAXA(KHBB>l) • 1 
IF CNJ .EG. ICOPL( NJl ) GO TO 300 


IKsICDPL(NJ) • 1 
IMsO 

IF ( IK) 300* 140*100 
100 DO 120 tCsl«lK 
120 IMatlM ♦ NC0L3VIK) 
140 KNBsKNBa -» IM 
IXalK ♦ 1 
NUlaNJ. 


REDUCE- BLOCK— BY THE PRECEEDING COUPLING BLOC KS- 
00 -1 60 NK&I K » N U4 


1 


4 - # 


RANDOM A C. C ESS 

NftEC-lOaNK 

CALL README (NRe0 4B*lStORL*Ntii:CiO)- 


4 4 4 


ooo 


OftlGlNAU PAGlp *3 
OF FOOR OUAUtY 


cacsQu 


JA-TE-a 


R A. f 4 0 a 


c 

c 

c 

c 

c 


« «. *.,.*_*■ 
k,Ma»KMa •• NCOLaVCNKJ 

4C«MAXA( lM>i ) - I 

□a 2oa rs uncolb 

KNsMAXA(KHaa«>tvi) -• MM 
KL»KN ♦ I . . 

KUaMAXA< KMaa*N*l.J • I • MM 
t<M*K J tCi- “ N -> i- 
KCsKM • KMB 
tF (XC»l>£*0 >. GO TO- ^00 
tCia 0 

Ka.sNCOi.avt.Niu - xc ♦ i 
IF ( kOu *GT.*.3) go to lil 0 
ICal - KCL- 
XCLs-l 

2t0 XCRsMv»CCU.0 V t NK » 

KLT*»KU - IC 

00 2-20 K=KCL»KCR 
ICalC ♦ 1 
KUTsKCT * I 
KlaMAXA(K^tM) - MC 
N 0 aMAXAtK.+ lM4>l) - Kl <a_MC • I 
lFlNa> 220*220. 2 JO 
KXaMJlNO t i C *NO l 
CaQ^ 

OO 240 Cal.MK ^ ^ 

CaC ♦ at Xt+L..)*A( K4.T+0 
A(.KLt»*AtKL.T ) - C 
CUNf INUt 
CONTINUE 

IMa I M 4- NCOLa.V.(J5UU 

CONTINUE 

REDUCE BC.UCK aV I T SELF 

OO 400 Nal.NCOLQ 
KN»MAXMKHaB4N» - MM 
KL*KN 4 1 ^ ^ 

KU*M AXAt K HOa 4N M > »• t “ MM 
KDIF«KU • KL. 

XHaM-lNOtKOlF * N*»ti- 
KS*N 4 KrtUd 
iF (KH) 420*i»4a.460 
460 K«N - KM 

KLtaKL 4 KM 

l^*? (N— I ) *lT »K 01F I iCaKOlF •• N 4 I 

00 4dO Ja i *KH 
IC»U 4 I 
KLTaKLT ^ I 

Kl*MAXAtK-MdB4R| - MM - - 


A C C E . S S 


2J0 


240 

220 

200 


160 


300 


A3-40 
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♦ ♦ * - 


r*r*n ncr> oAcrio non non 


A3-41 

ORlQiNAL PAQriS 
OF POOR QUALITY 


CULSOl. 


JAtE 


NO=HAXA-( ) - KI * MM 

IF CND) 4«at460tSa0 
SOO KK=M 4 tiO( ic .Null 
C* 0* 

00 S20 L=1«KK 

520 C=C ♦ AtKl^LM^AtKLT+Ll- 

A<Kt_-t)=A(Kl-T) - C 
4da.Ks=K I 

440 tC^KS 
£s-0 * 

OO 540 ICK*KL.JtU 

K»K «• • t 
C=A< KK.)/Ot.K) 

E»£ ♦ C*A(KK) 

&40 A(KA )sC 

A(KM)*AUtN)-<4 £ 


C 


420 0(KS)=A(KN)- 

IF (0(KS)) 401 

555 IF ( lOtHF.EQ .0 
0(K.5) = P LVOT 
UU TO 400 

boO «»RlTe (5.2000) 

Stop 


*555.400 
) GO TU 56 


KS.O(KS) 


0 


401 ««ltE{ 6 *2000 ) KS»0(K-5i 
400 CON.T li4Ufc 

KHBc»=KMBB * Ncoua 


I 


0 0 t * * random 


A. C C e S 3 


NREC 10=NJ 
CALL WRITMS 

♦ ♦ ♦ ♦ ♦ 

600 CONTINUE 

LF (KLiN.GT. 

return 


(NREO.A ,ISTORL.NR£CIO) 

RANDOM ACCES5 

J) GO to 6 06 


* SOLUTIDN OF uOUATlONS t LOOP OVER ALL BLOCKS ) • 


03/ ia2-4-4- 


*' •' « 


♦- 4- 4 - 


REDUCE THE LOAD VECtOH 


o06 KHEOsO 

610 ac 700 NJ'l.NOLOCR 

IF (NBLUCK.EG.1 .ano.^ 


(KlU<I»E0.0 


.-UR* 


KKK*£U«1 1 


) GO-TO 7L0 


HANDO-H access 


4 


NREC IOsMJ 
CALL HEAOMS 


( NRE D » A *1 3 TORL .•NREC I 0 > 


0 0 .0 0 R A N D O -M A. C C £ . a, S 


« 4 4 


710 NCOLBsNCOLEV ( NJ ) 


A 3^-42 


OF POOR QUALI 1 Y 


c 

c 

c 


c 

c 

c 


c 

c 

c 


CdU^OL 

OO t~ZQ N- l •NCdL9 
KU»MAXAlN+XHaB) - MM ♦ I 
K,U*MAXA( M+KHaa+ l ) - MM - I 
IF (AU-Kt.) 72d.7J0.730 
730 KSisH ♦ KMeB 
KsKS 
C*0. 

00 740 KK®KL-.KU 
KsK- L- 

740 C*C ♦ A.tXK)*VtX» 
ViKS)*V(XS) C~ 

720 CUNtItMUE 

<MB&s«CHBB 4 NCOLB 
700 continue 

BACKSUaSTiTUTE 

OO 700 Ns-i .NEO 
790 VCN»«V(J4»/0( N) 

NBLaNBLOCK , 

OO BOO NJal.NBLOCK 
IF (NBUOCK.EQ.l) 00 TO B20 


• ♦ • • ♦ 


A. A N O O M 


MjOI=MBI.OCK HJ ♦ I 

CALL REAOMS ( NUE O • A . 1 STORL .N JB I ) 


«u. ♦ ♦ ♦ 


RANDOM 


B 20 


B90 


900 

aai 

860 

800 


NCOLB»NCULBV ( NBL » 

KMBBsXHBQ - nColb 

MM4MAXA(KHBB4 1J. • I 
N^NCOLB 

UU 860 LSI. NCOLB. 
kl=maXa(N4KMbb» - mm 4 I 

KU=MAXA(.N4KMBB4 1 I • MM-« 
IF (KU-NLT 861.090.890 

K0SKHBB 4 N 

KsKB 

Oa 900 KKSKL.XU 

9 C»C»«vfx) - A(KK» 4 V(XS> 

COhT tNUE 
NUL^NBL - t 
CONTINUE' 


DATE ^ 8X229 


access 

access 


09/18/44 




♦ « ^ 


HETUNN 
2000 FORMXt 
1 
2 

ENO 


I// 


40H stop - stiffness nut positive OEFlNtTE 

J2M NONPOSITXVS PIVUT FjR EOUAT iuN » 14-*//- 
lOH Pivot * .£ 20.12 1 


U/ 



nr r rr 




OmGiNAL PAGt >£ 
O P' pQOR QUA LIT X 


A3=44 


main 


0 -ATE .» b.liAt» l^*/ 23 / 0 l 


OAtA SET AU-SS 


At U£V£L TMP Aa OP 


ACCC* *OdCK- KUSS 
♦UNI*. )POAtLS N«KUSii» 


K.plUSS 


C 

u 

C 


auaauuT ine suas- ( lo •x».v ♦.2 ♦ht*e»uen-».akua> um 

I jt>S,£Tl.MVt EU ft Atf^t^i-it^^NiJliuL* lEUTJt^CON* 

^ NUU£ »NOM * lU* A»Jj;>4PV 1»_1E MPV2-»JAXNUi3S) 

^co«MCN /CONST/ 

COMMON /EL StH/ TIME* IDTHF . .,^v d i a» 

ESJSS2 i 5SA/'Nil:ioiex'!l uiPoftN'^ . IX£..NP«I . 

^COMMCN. /PRCCN/^tCAtift'^ipkiuANPU.^JE, IVCa lACAtPU.lP|^t(3.lSt * 

COMMON- /POrtt/ LNPOKT ♦ JNPUFit *NPUTSV ,UUNUOE»UUl .uU 2 » OOP « JDU » JV U. J AC 
COMMON /MOPKOM/ lOOFlu) 

SmmSn yOAUai/ xSfA^i?lilT(4tA).uyAL2(4*.2i,.E\^AU.JA.27*Jr) »El.»fc2...e3 , 

COMMON /TPN^OE/ RSt t lN.i )-.i> ISPt 

r < IaAMi^M y TMCn&LV LlN tl- t N*UNtL^> 1 T£u t i. • N 1 t^CrL t .i*C.KQ. i t*HUN • WUU^HA‘ 

COMMON- /UlMct/ Nb»J5JBl »Nfa2 ►NOJu^NO** *-wO£* Ntltt.»N£.7ilHfc.d».NWy>N8^^.1rO *A»Ol.l ». 


1 


N012 . NO I 3 . NBIA *N3 I S 


COM-MaN /tsEA-R/ 10€AF<»MTOtO 
COMMCN /uEAfvC/ Ed) 

CCMMCN /DPR/ ITftC 

COMMON /PUCTti/ Mfi»JlP(-ld0X.fcNSl l-Q-Oli... 

COMMON A( 1 ) 

SEAL A 

SimcnIicn vtLeU/l.ACCaUCJ.IPl-CTNUOC) 

^a.ACNSTUN 

JIM-ENSICN EC( 12) .NOOE4.A4 . NUOE Ml A-) , PM( A). 

OAT A^KECUfcl/EMMAtER^ KECLbC/drfELcJ^EN Tl / . SEUCD3/6rtNE*StEPl/ ». 

DATA ME AO l/thHAO lua/ » . M£A02/6Mu£N,*Trt/ 

KULJ t VAUENCU LNPASl I ) *NPAH1 I « INPAS I C) •NUMU )-*■ INPAKl 3 ) » I NONL) ♦ 
LUOiVALENCE * J ; ^^^ATTl ) » INPAHia)-. I TtPf ) . I nP AM I 0 ) .IS INT) 

C (NPANl ldi. model*.. INPOUil IP* • NPMMAT ) 

** note ** COK lNU...T«L..t.lME, .lN.T.i..^SA.tlON^^ tsVEU* 

lELCPLJsO 


nr r. r.nr r.nnnc r nn n r^nnnr nr r r. nnnr nr r 






IJPPPM 




A3-45 


OKfGJNAL PAGi: U 
OF POOR QUAUTY 


>^uss 

IF tK.PRt*Ca*OJ GU TO dOO 
LF (IND.GT.^) go T0-4d0™ 


oate = oiiAo 


I a/ 23/ 01 


SKIP- TO BEARING. CALCUCATl UKS- IF NftCESiARY- 
IF ( IBEARifcG* 1 » ANO...IXY.aX«£U »3 I GO TCJ aO 


REAO AN-^O G. e N^-F R A- T- S 

1. N F 0 K M A . t I . 0 N- 


•■— *. ♦ •- 


cue M C-N. T 


1. READ MATERIA! PROPERTIES 

IF ( lOATWH.Lc.l ) V>RITE (6.2 j000)- 

GO TO ( 1 0 « 20 t 30 » 40 » A C'« 60 * 60 (70 ) t MOuEL 

UINEAR tUASTlC (MOOEU-l) 

10 IF ( 10AT4R.-UE.I ) aRITE (6. 2010)- 
DO 15 I*1»NuMMA.T 

READ (S.IOOC) N«.AREAIN>»DENtN> 

READ (5*1010) £(N) 

IF ( IDATaR *UE* 1 ) WRITE (O.20I1) N* ARE A (N ) * DEN ( N ) *E ( N) 
15 CONTINUE 


• DATA PGRTHwLE (START) 

IF (JNPCRT.EG.O »OR * NPUTSV *E G » 0 )- GU- TO. 150 . 
rfcCUAd = RECUai 

i*KIt£ (UUl) KECLAb*NUM-MA.T fNCCJM*! OEM U« 1 = I . NUMMAt ) ♦ 

1. IS.{ 1)»141*NUMM-AT) ♦.(ARcAtXl^Iai.NUMMAT) 

DATA PURTHUUE »»4»4»»4-444»» — ( END ) 

GU TO- 150 

NONLINEAR ELASTIC (MODEL 2) 

20 lP=NCUN/2.-. 

KFa L 

DO 2.S tsl.NUMMAT 

RcAD (5*1000) N»AKEA4N) *DcN(N.) 

READ (5*1010) (PRSPi J»N)«Jsl«J«CaN.)- 
IF ( LOATwR.GT *1 ) GO TU 25 

*« 1 TE (6*2020) N*AktA( N) *^OEMN4 *.*02.* PRLPi 1 *N) ,P.RCF( IFF l*N) 
DU 22 N*2»lJa — 

KPSKFIP 

LTAN-( PRCP(NP.N) • PRUP(KP-1*N.) )/( PRUPTn »NX • -FKUF (-N.-I *N) I- 
e.2 WHITE (6*2021) N*.f*ROFUK.*NI.PRUPi*<i.F-*U) *£TAN 


I 

I 


c 

L 


c 

c 


ommi 

Of POOR QUALITY 


RUSii JATu = 61^43 

ja. CONT iNUtE 
40 TO Vb- 

T«t-&MOELAS-T-lC (MOUti... 3) 


Aa^ 4 fi. .. 


lb/ £ 3/ 01 ... 


JO oa 36 lstl ,|vuMMAt 

READ (.5.10:000 N. ARElAtNl-.OEtViN > 

KE AO ( 5 . 1 0 X C J ( PhCJ(>-< 3., M ) l.^NCUN ) 

IF ( 10ATtoR*4T. »l I 40- TO 35 
• KI.TE’ l.d.-20J0.) N..AKt:A( N) .OEN4 N.) 
»RlTt (6.20J1) (FRUr»< JvNl.Jsl .NCUWJ 
35 CONTINUE 
GO TC 05 


ELASTIC-RLAbTlC MODELS t.MOOLL 4 AND MLJLL 6) 

•+a IF ( iOATteR*L£.l) lURlT-t (o. 204.0) 

00 45 laUNEMMAt 

READ 15.-1000) N. AftEA(N).OENtN) 

HEAD (5. 10 1C) 4 PKOPiO.N) . Jal.NCON) 

IF ( iOAT«IH.GT. U GO TO 46 

WiRITE (6.20II) N. AKEA4 N) .DEN (N J . { P1?0P( J » N ) . J* I . NEON ) 

4 6 continue 
GO TO se 


THERM0-ELA5T IC-PLASJ I C AND CKLEP .MOOEOS (MQDcL 5 ANJ MOOCL ?:_)• 

to OO 55 I=l*NOMMAt 

KEAO (5.1000) N.AREAtN) .OtN.(.N) 

READ (5.1010) (PftOP( J.N). J=l»NCUN) 

IF ( 10ATWR .GT . I ) GO TO 65 

WRI TE lewJOJO) N..AHEA.4N) *OEN4 N) 

WRITE (.C.OOei) (PR0P( J.N) .3=1 .NCUN) 

cb continue 
GO TC '»E 


V. UbEK-SUPPL-ltO HOOEL ( MuOEL 5 ) 

C 

r:. 00 ?5 i = i.ncmma-T. 

READ— ( 5 ..10 00 ) N.AREA(N) .OEN(N) 

KEAO ( 6 . 101 . 0 -) tFR 0 P( 3 .N) .Jal.-NCJN) 

IF 4 lOAT-WR.GT.l ) GO tO 75 
WHITE ( 6 . 2:0 30 ) N. ARE A( N) .OEN 4 N) 

WR-l TE ( 6.2371) (J,N.P«OP( J.N) .Jal ,NCJN) 

75 Continue 
c 

CW** DATA PCRTWULE »#♦******•*♦••♦♦**♦♦ ♦ a A* IaTakT) 


S5 IF I JN-PCRT.EG.O .or. NPUT5V.EU.0) GO TIL IbO 
RECLAO = RECL81- 

WH-ItE (LUl) KLCLAO.NUMMAT .NCON...(DfcN(-l. ) . 1=1 .NUMiMATL. 
1 ( 4PROP t 4 . J ) ».I* L. NCON) .3= 1 . NUMMAt ) « 

3 (AREA 4 I ) . 1=1 .NUMHaT ) 

c»*« data PORTHCLE *44«iw.*.**A*A*#***A#A**^»*AA ** ( UNO ) 

GO TO 150 


A3-47 






ld/2*X/01_ 


c« . 


c • 

OYNAM 

c • 


c» 

Nb 

c » .. 
c*. 

c ♦ 

NB 1 

c*. 

NB2 

c • 


c* 


c^. 


L • 

NQ^ 

c • 


c« 

NBS 

c ♦ 


C 4^ 

NB6 

c • 


c* 

..Na7 

c • 


C4 

NBB 

C 4 


L •. 

HB9 

c • 


L % 


Cr 


c » 

N81 0 

C4 


V. • 


c • 


L 4 


C 4 


c. 


c • 


c « 

NBl 1 

c • 


L 4 


C4 


C 4 

- NB t 2 

C 4 


C 4- 

NBlD 

C 4 


C4 


C4 


C 4 


C4 


c • 

NbX 4 

C 4 


C4 


C 4 


C 4 


C 4 


W 4 4 


c 


c 

2 J NB = 


NBl - 



NUMINAU OAMP£R AJ^NULUS U 1 AM^T£lHU bO 1 . . 

NCMINAL OAJ4P(i:K ANNULUS LcNLTj>UOL) _ 

OAMPdR ANNULUS .RAO lAL CL£ AnJiNCE CHC i 

.JO.AMPER LUUR LCANT V XsCCSl T Y ( V I SC ) 

FILM RUPTURE PRESSUREIPVAP) 

POSiJlON ANGLE OF LUbRiCANT POkT*^ I LTn 14 
PUSIUON ANs.LE.UF LUdKlCAJ^T POn-T-^t ) — 

S^JEjCIF lEO-.tjCUNOARV PRESbUWE AT PURJji.-U fUl 1 

SPECIFIED aCUNOARY PRESSURE AT PORT-i ( Pt..2i 

NUMUER OF FlAO-TE-UlEFtRENCE GRID POINT'S 
PER OAMPER ARCINGRIOT 
BEAR! NU-SULUTICN CPT lONtNSULN ) i 
NSClN=1 LCNv»-R 3EAKING sOLUT.iaN USED *" 

NSCLN=2 SmOKT-BEARING sOLUtICis OSLO 

NSELNS3 FJURlER-SERIdS 2-0 

NUMBER OF LUbKlCANf PORTS (NPURTS) ( 

IF NPQRTiO. J01NE0*oUUN0ARY CONDITION IS USED 
NUMbcR OF ILEnTICAL ANNUuI F.QR— iVtE DAMPER ULE.lL.Ml 
SrlFFNESS. MATR-IX OPTION LKQFK)1 

K0FK=0 stiffness nut COMPUTED 

NuPRsl ST XFFNtSS. matrix COMPUTED 
OAMPINu MATRIX OPT iON( AUF C XX 
AOFC=0 DAMP ING- MA-TR XX NUT COMPUTED 
KDFCaX. D^MP ING-MATA-IX CjMpdTED 


^ NUME*XT«0 


rrnrnpnr r o r noorn rporo 




f "M il pp / f "yi i m ^iy n| i t i 


Of?IGIl^J&L KAGt 53- 

OF POOR quality 


A3:=4a 


®*JSa DATE = ulfc<»5 ia/^3/0l 

Nttg ■= NBl <• -NUM£*-1 TwD 
N03. s= N«2 NUMEAl.Twu. 

Nd<* ■= lvB3’ ♦ NUMe*X.T»0 
nDs. a NBA ■ ♦• NUMe4^1.T»»0 
Nb6 - • KBS •♦■ MUME* l.TfcO 
HB7 a Ndd- ♦ NOME*-lT»kO_ 

Naa -a NB7 + NUMe*-lT»0 
NB^ a Naa +- NUM6*-I.TVlO 
NBiO ■= NB9 ♦ NUME 
NS 11 a. -NBIO ♦. NUME. 

NB 12 a. NQ 1 1 - ♦ NUME _ 

NB4 3- a- n£i2. ♦ NOME- 
NS14 a NdlS ♦ NUME- 
NS IS a NB14«--NUME 

CHECK IF CVNAKIC' ARRAY 8 HAS. ENOUGH ROOM 
FOR THE SEARING ELEMENT INFORMATION 
CALL SlZEe(NBlS) 

set the Number of £lemEnts_cF— the oearijvjg. element group. 

CALL subroutine bearng To reap sear I nu eleme'nt information 
CALL BEARNG ( a(NB) •&( NBl ).*4iLNB21 »a( NSSJ »a.(NB .4 1 taLNSSl » 

I a-(Na6I •B{N871.*B(N06 ) .dCNB9 ) . S.(NB40I ♦BCNAi.I-I*. 

Z 6CNB12) .EINBLS.) »o-t NiiLA-) » A ( NJ ) • lELTO » X , Y . 2 * XJT Z . LW . 

3 S.HE.MAOR* 1ST IEb* NOM-.NUME) 


2* R£AO element INFORMATION 

ISO HEAOaH-EAOl- 

IF ( ITYFT.EC*0) HEAUanEADZ 

IF H0AT*R.LE.1*AN0..ITYPT.NE. 31 *«ITE (6.2203) READ 
IF ( IDATaR.lE.I .AND. ITYPT.EQ*.3)__*JUTE (6.2201) 

NaI 

c 

IHEAU-B 

ir ( INHCRT«GT#0I IRBAOsSS 
leo IF ( ITYPT.EG.33- KEAJ(IREAO..l.l03)-M'.- IElE.. RG-. . 

I . <10CFT6( la) .Idai * ia).»iPLLtE 

If ( ITYPT.NE.3> read (IRCAD.ILOOJ M. IEu£. IS. MTYP-,. NC. EPS. 

T £t IME 

1133 FORMAT (1614) 

READ (XKEAO.IZOai NODE 
C 

IF C.IOE ATH .Eg .2 .AND. E TX ME .Eu. 0 . ) £T1 ME a I 000 OCX. 

IF ( IELb.EU.24 lELEaMXNODS 


onicMi F.'\c:i 

OF POOR QUALITY 


A3-49 


KUi»S 4>A-tu a Ul2^& 

IF ( IU£AK*tw*.U ANa. lTV-PT*iQ*4) Ua_TOa20. - 

IF CMtVP.t.t*a> M.TVP«l 

IF" (.MTVP*GT .tsiUMM-AT I GO tO I 10 

IF (KG*CE*Oi. KG»-l 

IF .1 IEL.£«LCL*mXnOOSI GO TO 1-20 

c 

wFITE (.0 <2000 I NG«M« Ic;t.e»JSlKlMUaS 
ST-OF 
C 

no. HIRITE (6.2310) NU.M.MTYP.NUMMAT 
STOP. 

C 

120 IF-(.M*Ne.M GC TO 200 
li:2 Isl.lcLE 
1..2 NiOOEMI I I^NUDEU ) 

mtyF6*mi:yp 

AAlCsKG 
EPSIiiEPS 
IPST-IS- 
£11 MsETIME 

ielo-lEle 

IPLCTilPtOTi 

C 

C SAVE ELtMfcNT .lNr.CRMMTION 

C 

200 IF (I.TYPT.N£.n GO TO 1V3 
IsNCOEMI 1) 

XY2( l.N>*Y( I) 

GO TO 201 

C •“ 

155 L-s-2 

UO 15)0. LOSI . I2L0 
w-O ♦ 3 
I.sNOOEMU.0) 

XY2(L.N)=X(.LI 
XYZtA.-*'! .NI-Y ( 1) 

150 XY2(LY2.M*2( II 


201 MATP-INIaMTYPt. 

EPSlN-lbO-aEPS: 
lPStM*IPST- 
Ife’LTC(M»tfcOU 
IPLQTNtN )* IFLUT 

IF UTYPT.2G.3. AN0<^IP00T.EQ«G.I MG«M0*'1 

IF t iTYPT-.cC.J. AND. IPoOT.eu.l ) NKl MrilaNO OcWI 1. 1’ 

IF ( lTYFt.cO.3-.ANO. IPLCT.60.1 ) NS t Mb ) =N0 D2M(:2 ) 
NO»3*-IEU0 

IF tlTYFT.ec.l) ND *1 

IF (leBAF.EO.l.ANO. lTYPT.tO.3) Naal2 

IF (ITYPT.EU.2) go TC 20A 

C initialise *0«XrlNG STOPAGc 

c 

lF(MQOcL.LT.u) GC tc- 2 04 
C 

CALL IMATO tPHOP(l.MTYPE).»»At 1 ,N)*.*A( I .N I * NUOGL (.1 . N ) .. 
1 TEMPVUNCJEM, ILLJ ) 


16/23200. 


r r r r r 






^1, Rill I II mil iOTPwiiw|Pmpi|||||p|ipv^mr 


ORSGK'U^L ?AGE 53 

OF POOR QUALITY 


ftUS-^ 


DA.TE « d 12:45 


tiO<* (_iOt ATH #EU «0 ) tiO-TO 21-0 

IP ( loe A-TH *5u .2 ) -uU.-_tQ_(dJa/ 
DO 20H D=l .NU 
20a uO i SU( L *N.) =0* 

ET IMV (-N1-S-ET IM 

GU TQ 210 
207 cri ,VLV( N) =ET IW 

210 IF tlTYFT*NE»l) UO TU.211 

IP ( IU0F(.1 ) .£U*.0). LDC»^ 

IF ^"t loCF ( 2 ) .hO*^ U DO tO 295 
I-lsNUDtMta ) 

OMI 1 ♦N>*lDU.DO. 1 l> 

GU r.C 2S5 


.ill 

2g0 


t 7 

4 . <41 

240 




00 ^^0 U-l»^D 

I • AN0*1TYPT CiCi TO 230 

LLsl 

00 2<^0 L = l *3 

IF ( lOOF U. ) .aa».l ) OC to 240 

DO 241 LKsl^lELO 
LP=UF ♦ 2 
IIsNCOEMCLK) 

LM(LP*M-ID(LU. ID ,,^nc/. \ 

WRITE (bt9d27) N.U.4-L.1-P. II .IDQF(U> .sx . 'LP- • . I 5 . 

PUKMAT ( 5X,, *N= ••» I5« 5X * *U- •-•-15 .oX * »LL.-. »15»5X. i.P *.lb. 

IbX» •1I=*-»I5»3X»* iuOF ( L ) = ' •15) 

CONT INUE 
LL=LL + I 

CUNT INDE I ( IO( XO .MD >• KD-l »o) »MD=1 . 7) 

WRITE (6,9720) ( LM( I 1 1 t N) . I U = 1 • NO > I 131 .I 

FOkMAT (-5X » •ID( I . J) (TKUda tL E )-',/» d ( 5X . I 1 j IJ 

CUNT-INUE - 


GU TC 223 

CREATE THE EEARInG uUEMENT CuNNECTIVITV VECTOR OM 


2J0 


C 

231 

232 
C 


LL, a I 

DU 232 0=1 »6 

1F( IDOF(L) .EU.D -DO TO 232 - 


.P a U“fc 

)0 231 Lxau, ItLO 
.p a Up 2 6 
,1 a NOOEMtLK) 

M(LP*N) a lulUL-*!!) 

^ < lOCFT-dtLP) »£0*.l ) LM(UP»N)=0 

,HITE (6t9at7) N*L»LL»LM* 11 ♦lOOF(L) 
:aN.T iNUE ■ 

.LaOLf l 
:ONT INUE 

*WIT£ (6»J»2e) NOUF 


i.iii iwiiiini 


A3-S0 


i.tt/2-j/ai. 




I iwfu^ipii 






. III! 


7»T 


Of^lGli'viAli. U^ios. IS 

OF POOR QUALITY 


A3-5T- 


ROS^s 


JATk - ld/2j/-01 


Jb2o FORMAT ( • iii NuUps‘,.lai 

C AKITE (ttSOSB> i C tot K-O-iMO )’* KOsi «u } *M02 1 *.?) 

t AWXTe- (o^tsee?)- (NUDEMtLKXvL^s l . ItcO) 

i>ctj7 FORMAT ( &X» ‘NaOEMtOK ) = * *2120) 

C JO 2B’9 LKsl.lELO 

C t.I. s NijOEMtLKi 

o *RltE( 6.4JOV) . t > .U-= 1 »6X 

2j'». continue 

FURM-ATt5X^» ia<LL*IL) = * »bM2> 
c WRITE (E*^97 Ec) tCMt 111 »N4 ».l ilal .NO). 

v7B6 FORMAT I dX» •L,Ms‘-*tJt IXt-I l.l ) ) 

C UPUATE CUL-UMN- HEiantS ANO- BANDW iDT M - 

C 


223 CAU. CCi^hT ( HT * NO *CM ( 1., N J ) 

IF ( 10ATwR*\.T*tl GO TO 2VB 
RLt I >stXV2.( UN) 

IF t iTVPT«£(.*0) CAio. CENTmI t XY 2t. I ,N3 , RC ). 

IF ( ITYPT*NE«3) — WRITE to. 2210) N+ 1 £LTt> I N.)..,.! PS t N ) ,M ATPCN )*0<NN . 

tPS IN-tN) ♦^RLllI » ET 1 M* (-NUOtM (U_) ♦4.0»1« 1.01.0 ) 

IF (ITYPT.EC.3) WRITE (o*22ll) N , 1 EuTO ( N ) »JUNiS.*eT I M , 

1 (NOJEM(LE) .LE-1 » lELO.) 


c 

C 

u*«« 

C 


OATa PCRIhuEE (iTART) 


Jsa IF ( JNPCRT-.EQ.O .OR. NPUTSV-.EQ. 0 > OO TO 3CU3 
KECLAt)aRECLE2_ 

• RITE ILUl ) KcCLAB.N..IEETDtN) .IPa(N) .MATPtN) • NKK.EP3 IJSU N ) . ETIM. 
^ 1 (NCJOEMIEE4 .LE=l , I El.0) 

C*** OATA PORTHOLE «L****WUi*#***w*4iW**»*<t*(*» ) 

C 

C 


JCO IF IN.EG..NUME} RETURN 
N=N4- 1 

00 220 LL*UIEEO 
220 NOOEMtLLl-NuUEMtLL) ♦ KNK. 

IF ( N . OT .M ) 00 TO 1(^0 
OU To 120- 
c 

A20 I.Ft lEfcAR.ECi.l .ANO, ITYPi:.£Q^3> 00 To 7-2 0 
00 TO tAA0.E60.5o0.r00) . I NO 
C 
C 


ASSeM-U eE LINEA R S— T I F F N E S S M A T R I C E 


A..0 DO 500 N-l.NuME 
IELD=lELtO( N) 

NO- 1 EEC *3 

IP t ITYPT.iU. U NO= E 

CALL ECFtECK tEMt 1 »N ) .NO.. ICOOE . iUPOT ) 
IF (IC00E.E0.I) OO TO 500 
MTYPCaMATPtN) 

IF ( rTYPT.NE.l) OO TO 501 

2 

C RIN2. element 


5 ■ 


I 


nr,r r r n r r. r. r r. n n r> 






OP pOOEt QUAUT-Y 


A3=6e 


Mjisa 


JAt£ = 10/^3/01 


NO- I 

Sti X = &( MTYP£)*AKeA{MTYPt:)/XVZ( i .N) 

GU T43 520 

2-4 NODE .t«USS 

5 0 1 A.e= AK t A (>»T Y.(3 E ) ♦£.( MT V-Pd > 

CALI. LEMHL (XY-ZCl.N>,RL) 

GAi_ 4_ STlf^l (XY^( 1 »JS) »A£.S3 
WRITU. C6.ll 131 (-54 1-1.1 = 1.701 
WfUTE (6.11141 (LM4 i.Nl .1*1 .61. 

1113 FORMAT ( ax. •■TRUSS ST IFFNESS (KuSSl L* . // . 6'(-tf X , 013 . a) 1 

1114 fokMaT ( ax. ' lmli .n)- (.KUsSi:.*.//.6(3x.iiO)j 

520 call A0C5AN— (A4N2) .A(N11 .S.RE.LM( 1 .N) .NO.l ) 

300.. CONTINUE - . 

RETURN 


A 5 S E M e L E MA5S - matrices 


auO IR (1MASS.EQ.21 G(0 TO 530 
LUMPED MASS DISCRETIZATION 


C 


5*.! DO 640 Ns-l.NUME - 
MTYP£«MATPtN ) 
IELJ=1ELTD(M 
NO=l ELO^O 


IF (ITYPT.Ne.l) 
XM( 1 )=XYZCl .N ) * 
ND= 1. 


00 TO 546 


OO TO 547 


C 

540 CALL LENTHl ( XXZX-1 . N > .-HL > 

C- 

PHi i 1=.5*RL(.2-1 

GO TO ( 900 .620. 625.0261 . IELD 
620 PM( 21=PM( I ) 

GO TO 627 

625 PMC21».5A(KL( ll?-KL(2) ) 

PM4 3)=..54RL( 1 ) 

GO TO ear 

626 PM(21=.5*(WL4l)-RLt311 
PM( 3 1*.54Rl (3) 

PMC 4.1= .S* ( «L( I )-KL( 21 ) 


027 A»0 

AO£N=AKEAt-MTYPC)*0£N(MTYPE) 
00 6.16 I — 1 . LELO 
XMM=A0LN4PM( I L 
DO 626 L41.-3 
A= A L 1 

c2d xM(K»aXMM 


c neon on o n o r»or 






ORIGlNr*!. 

orPOOR 


RUSS OAtc = uli^4S 

54? CALL AODMA. ( A(.N4) .XM-*LMt t»N )» Ni) ) 
c40- CONTINUE 

WuTURN 

CjONSISTET^T mass ClSCRfcTiZATiUN 

55-0 OO 5 50. N= I * NLW.fi 
I EJ>£>=LELT0-( NJ . 

NO=lEUO*-3 

IF (XtYPT.*.EG. li. NO=l 

CALL tCl-iECKILMI I..NJ . NO.. ICUOL* lOPGT ) 

IF ( ICOOE.EG.n CO to 650 
MTYPL=MATa.(N) 

IF < IT.YFT.NE. L) GO TO 551 

XM( 1 X«.XYZ( I ,N)* area (M TYPE IJUIOUM TYPE} 

NO- 1, . 

GO TO 655 

fcbl AOEN=AREAl MTYPEi •OLM.MTYPE) - 
CALL LENtHl (X-Yi( l»N)..RL) 

CALL MASbAK ( XY Z I 1 . N ) . AOEN. S) 

653 call AOOuAN ( A( N2 I ► A ( N I ) . S*R£ »LM( I .Ni . NO , I ) 

CSO CONTINUE- 

RETURN 


ASSEMbLE NONLINEAR F 1. NAL 

TURE STIFFNESS AND EFFECT 

V.-E C T O R S 

70-0 IST1F=0 

IF ( ICCUNT .EU<0>- GO TO TOO 
IF ( IREF .EG*0)- IST1F=1 _ 
rCJ CONTINUE 
MAUR-=N3 

IF (IC0UNT.eu.34 MACR=Nb 

DO ?14 N=l«NUMfi 

lELO=IELtD(N) 

NO- liL0*3 

IF ( ItYPT^EU. I) NO*X 

CALL ECFI-ECK (LM{ UNI .Nu.JCODL.IUPJT) 

IF ( iCCUE.EC* I I lELCPLslELCPL F I 

IF (.1CC0£»£U*I) GO to TtO 

LF ( lO£ATH*Ea.v>) GO tU 

ETIM«OAbS(ETlMV(N) I 

IF ( IOEATH.La*Z) GO TO 6V0 

IF (TIME.LT.ETIMI GO TO 710 

IF ( ET IMV( N» .GL.O. I GO tO t>9Z 

ETlMViNMEl IM 

00 6V5 Lsl.FtO 

IslP(L.N) 

IF ( 1 .LE.O I uO TO 0.«5 
LOlSblL.NI^XI il 


' 4 U 


A3-53 


lax 20/01 


a T R U C - 
1 V E LOAD 


i 


Of^iClNAL HAGE tS 
OF POOR QUALITY 


RUSS 


OATE * 


ia/ 2 j/oi 


c 

c 


fc%5 CONTINUE 
CO TO ts<SZ 

o*»0 IF ttIMC.GT*£TlM) 00 TO 710 
IHtYPfc-MAt**(N) 

IF (ITVFT^NE.U GO TO 701 
ND «1 

RST( UsX-YZtl.N) 

01SP( 11*0.. 

IF (lai.T.0.1 01SF(l)sX(l) 

IP ( IUEATH»NE.U ca TO 7:06 
RS-tU )«FSTtl ) eOI6b(.l»N). 

I>LSF( 1 >*0I.SF(1 ) * E0I6dtl*N) 

GO TO 706 

7Cl DO. 702 Lal.M) 

RST (U)sXYZU..N) 

01SP(4:.)-0. 

IsOMtO *M 

IF (I.G-t..O) 0I6P-(U.1*X( U 
IF (.lU£A-TH*Nt * 1.) GO TO 7-02 
RST a.J = K6T(L) ♦ 6DlS6(O.N) 

Ol^PtOl-sOlSP-U.) * E0136tl.*Nj 
702 CONTINUE 

70o CALL STIFNI < N* AK£A ( NTVFE 1 ♦ PROF (-1 . MtVPu ) ., A At I *Ai ) * 

I NOOGLt I .N) .TEMPV I , TEMPV2 »EP 3lN( N ) , S.RE . iSTiF) 


C 

L 

L- 


C 

L 

C 


CALL A006AN ( At MAOR ) *^( N1 ) • RE *LMl 1 *N > » NO *.2 } 
IF (l6TlF*£a.01 GO TO 710 

ADO ELEMENT STIFFNESS 

CALL AODEAN. ( A ( N4 ) « At N 1 ) * St PL-*4_Mt X ».Nl ) 

7 I 0 CUN'' tNUE 

IF ( lELCPL.eU.NUME) IELCPL»-1 
return 


• • « • • • •••♦ • • • • • • • • • • • •••••••••• 

ct CALCULATE AND ASSEMULE I NSTANTUtNEOUS F-uKCE . V ECTuR 

ct AND ITS SPATIAL GRAOUiNTSt— 1^. THE TANGLnT ST IFfH^ESS 

cl- AND DAMPING matrices FOR THE NONLINEAR T 1ME«THANSIcNT 

c • 

C. SUUE22L-FILM DAMPER INTEIRACT IVE ELEMENT 

c • 

*r 2 oVlF ‘T irIf »EU*oP tbf i>D=r •«••• 

MADR • NO 

IFt ICUUNTtEGtO) MADR=N5 




rrn nrr rror. rrrr mr. r. n o r. r r nnnr.rr. 


A3-55 


OnrGINAt PAGE fs 
OF POOR quality 


JATC = dl2i*a ia/23/01. 


CACL SUE.KOUT INE dEARNij TC CALCULAtc dE AR £EiJ>l£t)LT- .EjU-aCE^ 

ANO bTIFPNeSSES 
*RI TE(6^1314) Rfcu 

iol 4 -FORMAT tbx . ‘ ♦***'» * • 

l. 1.0 X ••Nea-' «l.lO)- 
i»iRITE( 6.131E) ( Xtl i *1=1 .N£0) 

IJld FORMAttoX. • X=» . 6ei2*..&) 

«*RITE( e* 131t ) t Y( I I . l = l »N£u) 

1316 format CSX. *^V=-‘ »6ei2.5)i 

*^RlTd(c*l3ir> ( 2< I > .1=1 .NEO) 

13 17 FOnMA.TtSX, •2=»,oei2.S) 

S.AUE E£ARNG( blRd ) .d(Nd 1 ) • b( NB2) »b (N03 ) .u (Nu4-> * 

1 b(NdSl* a(N&&) «tUNd74-.d(Nu6 ) • d(Nd'91« . 

£ d( NblO) t U( Nal 1 ) *d(N0123 *ai Nb 1.3.) »a( NU'lAl » A( N3)-» 

3 IfclTO.X. Y, Z.XYZ.LM.ii.RE.MAOR .1ST1F£)»NU.M,NUME) 


RETURN 

a r R E .s 3 c. A,E. C U E..A X I .0 .,N. .a 


*♦ UATa porthole ♦♦♦♦♦♦♦**t^**(******i«t*<<##***> (3TART) 

aco IF (UNPCRT.EO.O .ok. KPLLiTe.«I 4E. 3 ) oO TU 302 
RECL-Ad = RECLd3 

WRITE (LLIJ RECLAd »N«. (NPARt 1 ) » 1= 1 .2 J ) . K3TEP . T l.MCNEuL 
** DATA PCRTMuLE *♦♦♦.*(♦♦*♦♦ wwww **♦ *r* * **i* ♦* *:)t ( £tsij ) 

a Ct. IF ( N\> * OT • NE oL J GO TO dOo 

GEumETRIC and MATERIAL LINEAR 3T.-^E 33— C AL CUL All ON 
IJ3RNT = 0 

I PUR T = JNP0RT*-nPL0TE 

DO 330 N=l»NwME 
IPST=IPS(N) 

IF (IPST.EO.O) GO to O30 
IF (IPK1.NE.3) GO Tu aOl 
I.PKNT=IPRNT ♦ 1 
IF (IPRNT.NC.-i-) GO TO 801 
»RIT£ (b.25C0) Nv. 

Owl MTYPEsMATPtN ) 

IEL0=IELT0(N) 

NU=IEL0*3 


L 


IF ( ITYPT.NE.l) GO to 811 


A3-56 




KUSS 


JATt = dl*;4£3 


NOss I 

EP=EPS ) 

lE-^cl taT ^O) EP=uP ♦• X( i ) /XYZt 1 
STM l.)-EP 

StS( 1 > = Et»TYP£) ♦^P" , 

&a TO 816 

all CONTINUE 

00 8 16 Jjsl-.N0 
OlSPl J)-=0. 

1 *L>U J »N4 

IF ( L*GT.0) DISP(J)=X(I) 

813 CONTINUE 

CAUL LfcKtHl tXYZLl .N} .PLJ 

00 81** L*1*N1NT 
tP*EP8 IN IN-) 

K=Xv*(L.NXNT ) , 

CALL OE A 10 l(XYZtl.N) .K.t-O.XJ) 

DO 81J K=l.NO 

a 13 EP = CP ♦ dO(Nl*OlSPJKl 
ST N ( u ) — EP 

STStL)=tt.MTYP£»*CP_ 

PP I L ) = S T S t L ) * AKE A( M T YPu ) -t i, \ fTv./i » 

IE (iPPl.EO.O) 4lrt I TE ( o I 0 > N-. L »PP I u > • a T al L ) » ->TN( L> 

al4 CONTINUE 

IF llPRl.Eu.Q) iUKtTelo.audJ J 


* ♦ .1- DATA POKTHOLt 

^ Jit IE (jNPOHT.EO.O .OA. — (!iEft_ai£»N£.. J ) OO TO 830 
K C <- L A U =• K-E C L o A 

*HITE (.LUl ) htCL AlJ • L » PP ( I- J »ST Si U J-4.S.TN1 U.).. — 

d I 7 CUNT INOE 


{ ^T API ) 


; ♦ data pcn THCLL 


( IhND ) 


J30 CCNT INUE 
MET URN 

NONL I NEAN STRESS CALCULATlwN 

eCa IPhNT*C 

DO alO Nsl.MJML 

IF ( lOEATH.i-U.O ) OU TO 910 

C.T IM-DA 8 S( ET LsiVl N) ) 

IF ( lot atm » OO TO E9-0 

IF ( TlRE.uT .ETIR) Ou TO 810 
S.J TO 910 


I d/J:3/0l 


nrrr rrnr rr 




ORIGINAL RAGii IS 
OF POOR QUALITY 


RUSS 


OATc = dl-a4b 


d-iO If^ ( TlM£.<iT.e.TlM> GS TO dlO 
iPST=iPS(rM) 

Ur ( IPST .EU .0) . GU tQ &1 0 
1F( IPR l-»NE*0) GO TO d03 
lPRNT=tPWNT ♦- 1— 

IP (IPRM.NE.l) GO TC 803 ^ ^ 

GO tc t8-70 » e ZO » 870 » 8 75 ♦•dZof 675 1 87a • 870 ) 
870 *-Ri-TE (6»2500) NG 
GO- TO aoi 

875 «»RITE 16.2600) NG 

^ 8 03 IF t.IPH 1 *EG-.0) .WRI-TE(6 .2520 ) 
MTYP£=MATP-(N) 

LEL.O»IEETOtN) 

NO=1£LO*3 

^ IP I ITYLPT.NE*!) -GO TC 850 

NO= L 

RSTt 1 > = XY2( l*nt 

oispi n»o. 

l = LM(.l.N-) 

IF (i.GT.0) OISP(l)-X(l) 

IF (.LOfcATH.xe.l ). GO TO coO 
RST(l)=RSTtn ♦ cOlSbt I .f'tJi 
OlSPtl )*01SP( 1) - £0156(1. N> 

GO TC 8c 0 
C 

853 00 851 U=1*N0 

RST (O— XY^(L.N) 

015P(E )=0. 

1=GM(L .N ) 

IF (l.GT^O; OISPlL)=X(I) 

IP ( lot ATH »NE » I ) GO TO 851 
K5T(L)=R5T(L) ♦ EDL5BIC.N) 

015P(L ) = 0I 5PU-) •* E01S8U..5U- 

c5l CONTiNUt 


MGOcL 


dcO caul SlIFM (N.AREA(MTYPE).PR0H( t.MTVPE) ..vA( l.M). 

I NOOuGC 1 .N ) iT EMPV 1 . TEMPVE.tP 5IN(N).5.Kt-»0 

♦ DATA PCKTHULt ST AKT ) 

IF (JNPCRT.EG.-0 .or. nPLOTE .Nt » 0 ) GO TO olO 
KEtLABsRECLE**. 

DO 880 Lsl.MNT -.k/. . 

»RITE (LUl) kcCLA6*-L-»PPU->. STa(lu) » sTN(L) 

8c3 CONTINUE 

data PCKTHOgE •.**•♦♦***♦♦*•*♦♦**♦»♦♦♦*#♦• t .EtiO ) 


813 continue 
return 

I 51 


A3 -57 


18/23/01 


owgini^ SfmuTf 

OF FOOR- QUAwi » 


A3^a 


ttU^S 


UATC = 0I2.4.S- 


..l.d/L£3Xai 


c 


I auo 

10 10 

i,lCO 


FQKMAT 

FORM-AT 

FORMAT 

Format 


Clb»4F10«0» 
t.aF 10.0) 
(sid.&FlO.O) 
(iei5) . 


dOCO FORMAT (////3-7M M A.. T C R 1 A L CO Mi# T- AN t-SJ . 

iiOlO FOKNUT (///SR SET..10A.5M AKe^.LOA.aR OEM . I OX .Tud. £/.)._ 

CTU Format (I5»e€i5.6) 

d-020 rOHMAT (///SR S£T.10X*SH- ARfcA.WX.Srt OEN.l dX . SRFUJtRT .-9X.. 

L oRST.KAtN ..9X..t»nSTRtSS. llX..4.-rtETAN/ I S.*2£l ii. 6 .T £Xj 1 1 

ii021 FORM-AT (.47 X.J S. dEl 5 . to) 

20d0 Format (///-s7h m ate r 4 ac con starts str no..is^ 

I 14H area «.t.l5.6/l4R- Otl4SI.T.V--=-.ElS.6/') 

2031 Format (37r temp i^oph i- c) ). * a-.to(£io.6)/ 

1 37R E...... .>...(- .PROP*(. 7*11.2)— ).'. to.oC.t 1.5^. S )*/ 

2 37R- ALPRA ...... . (-PROP ( 1 3*1 (r) ) .-. -® . 04 t iS.to ) / 

J 37K REF TEMP .. .♦ ( PROP!. 19) ) * .- a.ElS.to)- 

2040 FORMAT (///5h SET. l-OX.SH- AREA. lOX-.SM OEN.lOX.tort. E. . 

1 lO-X.SMTlEl-O. lOX.SH ET /) 

20tl FORMAT 1 39M TEMP PROP! .1* 6) ).-. *».toElS.&/ 

I--. 39R E . ... . »•. ». .( PROP! 7* IS ) ).. ♦ . - ^ .toE I a. to/ 

2 39h VIELO PROPll3-lb) ) . . - »,to£ 1 5. 6/ 

j 39H. Et PROP< 19*244 )«. s*o.E44.u/ 

4 39+1 AEPHA •..*«.«..*»( PROP(2S*30) ) .... s .4>E 1 6/ 

b 39H REF TEMP PROPl 31 > )* . =.£15.6/. 

to 39M CREEP LAW REV .( PROP( 32) ).. a»FO-»0/ 

7 39h creep la*, coefficient's .•...•»«.•«»/ 

0 39M AO c P kOP( 33) ).-. ^*Elb.S/ 

9 39H A1 PROP( 34) ).-.* ® .c.l-i>..6/ 

4 39H AS PROPl 3S) )*..».£XS.o/ 

1 39+1 A3 PROP( toto) )». — «ELS.. to/ 

2 39R A4 PROPi. 37) )•• s.EIS.O/ 

3 39 M AS fcC- PRuP ( 3&) )-. . to .£ l b . to/ 

c 39+1 A6 PROP! 39) ).. s«.gli»6) 

2071 FORMAT ( o« PROP ( » 1 2 ..1+1 . 12 .SF) s. ELS. to) 

22C3 +OKWAT-4///2.BH E L £ M t N T 1 N F 0 R .A A T. I 0 N// 

1 . 39X.7R initial/ 

2 4X»lHN.3X.*4MlEL0*3Xt3r»lPS.2X.-.HMtyPt4X»2MRto» 

3 9X.CHSTKAIN.12X.Ato.9X.5HETl.ME, 13 X, 

4 34HNL1DELI) NOiO£(.2) NOOEtO)) NUCE(4)/) 

2201 format (.///».♦£ L- E M E N- T N. C 3 A C I- N- F C- R M A T I. O N.» ,// 

1 4X.»N»»3X.MELD»-.4X..»K*.»-,j»X.».tTIw£.».U»X.»Rc.T0K (Nw0E(1) ) • • 

2 3X.*sTAtOR (N0JE(2U'./> 

22L0 FOkMAT ( tS.3lO.(7*toX.2clS.U..3»X*Eib.to.2X.,4I 
22 11 format ( is .16, I 7..9X.E15.6 .SX. IS. 9X »Ib) 

2300 +ORMAT (///ICM ELEMENT cROoP »,42,1CH (TRUSS / KOSS4S 
U I7h ELEMENT NOMEER *,1.*/ 

2 7H lELO *,l3.26h IS liKEATER THAN NPAAtM *,13/- 

3 SH STOP) 

2j 10 EOKWAt (///ItoH ELEMENT cKOUP to.T^.lSH (TRUSS /—ROSS)/ 

1 17H element NUMoER *,14/ 

2 7m Mt>P to,l3.27H IS sREATEW ThAN NPAHLIoA. a.4J/5W StOP-) 

2j30 format (lHl»4oHS f K— £ SS CALCULATIONS FOR- , 

1 : /ME LcMcNT OHOUP ,ib,lbrt ( TRUSSES I //*4X. 

2 7HEL£M£NT*12>H COcA TT-ON .Sa , b+iF Ok Cc , 1 2X. CHSTRsaS • I 1 X * 

3 6HStRAl-N..-9X....i.l HTEMPCRATURE > / ) 


u r>j 


ORIGINAL (?AGu JG 
OB-BOOft QUALITY 


HUSS 




Ld/L2J^/0l 


= 10 I-GkM-AT ( is . H0-.3(2X . LiS.O ) ) 

3w0 KOKMAT ( IH ) 

(Ihl.-iatHS TMtSa CA4-CJLA T. I- u 

i!7^'e 1. E M -L iV- T h u J P ( 

7HELLM£N-r»-lOH CCCATI UN# aX .aHiTHTL #.UX. ShI-OkC^ > Urx.# . 
t-HETK2aS»ll X »bHSTRA IN »VX , I 1 mT t MP E s AT OI<t ,/) 


c:0 FORMAT 
1 


N 5 S (J R ». 

TKUoatS //*AX, 


original is 

OF POOR QUALITY 




DAtt = 


• OHTiONS IN £Ph:tCT* NOTCf^, W.£tXDI C.SQU^E.NCUlST, NJOtA^K.LO AJ. NOMAP. NOTuST 

♦ UPTLQNS IN fiPFECT* NAM-E AM Slit ^ 2l7^aA 

♦ ;»T AT LSI I C S* SCJURCti ST ATLMhN-T.^ “vr- ^ 492 rBHLioK AM 4t 

* ;i-T At I S-t 4 C3JL NL. . C I A<jN01>t ICS CENERATEO’ 



Original. &A(3tr (s 

0E4>00R QUALITY 


A3-61 


main- - . DATE = 9l2ai> 0 9/-18/AA 


C ** * ***■**■*■****-**■******-*■ 
♦♦♦♦♦♦•A*.*# *♦*♦♦**♦» « 

C**1t*.***4t#**#*»*#**!Mt*******itt **♦♦♦♦♦-*♦**♦♦•♦***■ '►♦♦♦41 ♦-*♦»•*.♦*♦**♦ ♦♦♦JiiAlt*** 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦*♦>♦ ♦♦♦♦♦*♦♦*♦♦♦**♦♦♦♦♦♦«♦*♦♦►►►►► 

C 

SUQRQUJriNE— a£A.5N<S(BO *ai.«dC * VlSC *.^VAP, 


c. 

c 

c 

c 


I 

2- 

3 


TH t . TH 2 *Pd I *P 62 Gft I D #1^ CLN.-i4PQftT • ... 
NP 1 CML».(a3FK *Kt3t: ♦.! EUT 0 • X.»T.« .Z 4 XY Z* UM« 

G *KE »MA(Xa.. 1ST I FB« NOH»NUM El 


C*. 

c * 
c. 

c. 
c •> 

c. 
c. 
c • 
c. 
c. 
c. 
c. 
c. 
c. 
c . . 


P H O G R A - M F U N- C T 1 O N 

* TO READ beari ng ELEMENfS- INFORMAT I ON -- 

• TO CALCOUATE AND ASSEMECE E»_EJ4£NT. STIFFNESSES 
£ X E C 0 T I . a w H-O B E 

I NO S3 BEAiUFIG 1 NFORMAri ON-. 13 REAO 

INO = 4 ELEMENT STIFFNESSES ARE . CALCULATED 

AND ASSEMBLED 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


implicit re ala 9 (A«M,a— Z) 

COMMON /£L/ IMO» IC0UNT»NPAR{ 20) *NUMEG*NEGL.* NEGNL..-1M ASS*. 

I I DAMP *I ST AT-*NDOFD IM * KL 1 N.* I E t G*.I MASSN *1 0 AMPN 

COMMON /O IM/NO *^14 *N2*N3* N4 » N5* N6 . NT • N8 t N9 . NlO * Nl I * Nl 2»Ni D* 

1 Ni4*NlS 

COMMON /caNSXZ_DT»OTA»AO.Al*A2.*AD»AA*A3*AS»AT*.Aa.*^A9. AlO*.. 
t All *AIZ.A13* AIA.AIS. A16*A1-7*AIS *A.l9 *A 2D. lUPE 

common / VAR/MG .MOOEX *J *JPQ t * KSTEP ♦ I TE MAX » I E GM£F-» If E • 

I KPR1..1HEF* I£0UIT-*1PR1 »XPLaT-N..RPLOrE 

COMMON /FORCES/ F IPC lOOD »F2PU OO) *FRtlOO i 
common /sear/ IBEAR.MTOT9 
COMMuM /SEAR2/ Bit) 

common a ( t ) 

REAL A 




c 

c 

c 

c 

c 

c 

c 

c 

c« 
c. 
c. 
c • 
c* 


c 

c 

c 

c 

c 


c 

c 








omGIMW^ E Jj® >® 

nP POOR 


A3-62 



1 


QEARNG JAte * AiZZ9 09/ia/44 


R£AL a 

OIMENSIOM aotu . 61 .U-) *BCtl U. VISCCU .PVARtl )^tHl( U. - 

1 TH2< IX.RBUU..?B2( 1) .NGRIOU) tNSa.N.Ui.*R(l.i. _ 

2 NRORT (It. NFI UH( Ul*.<OF A tl > • KOFC( U .XE CT 0.(X ) * 

3 X(l).Y 4 l). 2 (l).LMCN 0 M.l).xy 2 tN 0 M.l). 3 (U. 

1 . REtL} . VELat 12X»ACC3( 12) 

lil ( INB.GT.O) GO TO 420 


READ AND GENERATE ELEMENT * 

INFORMATION • 

• • • * ♦ ♦ • • 

WRITE ( 6. 1999) 

N * I 
IREAO S 

160 read (IREAO.1000) M.aoe.B^LE^aCE. VlSCE.RVARE.TMlE* 

2 TH2E.RB1E.R92E.NGRI0E. NS O.NE . NPORT E» 


.1 

\ 



3 - t 9 ?I.LMe.KaFKE.X 0 FCE 

GENERATE MISSING ELEMENT- INFORMATION IF NECESSARY 
120 IF (M.NE.N) GO TO 200 


SOG 

si 

SOE 

BLG 

s 

8LE 

BCG 

S 

BCE 

VISCG 


VISCF. 

PVAP<I 

a ' 

PVAPE 

TH-IG 

a 

THIE 

TH2G 

a 

TM2E- 

P^IG- 

sr 

PBIE 

Pd2G 

a 

PB2E 

NGRIDG 

«4 

NGRIOE 

NSOLhiG 

a-. 

NSOLNE 

NPORTG 

a' 

NPOR-TE 

NF ILMG 

a> 

nfilne 

XOFAG- 

a 

KOFKE 

KOFGG 

.. a 

KCFCE - 

aoxN )_ 

a- 

BOG 

Bl(N) 

a 

BLG 

BC(N) 

a 

BCG 

VISC(N-) 

St- 

VlSCG 

PVAP-(N) 

a 

PVAPG 

fHl(N) 

a 

tHlO 

T'M2( N) 

a 

TM2G 

PBKN) 

« 

PBlG 


ORIGINAL PAGE IS 
OF’ POOR QUALITY 


A3-63 


oAte « 


09/l8/ft» 


PB2(N> a pa 2a ^ 
r4GRlD(N) a NmRIOG- 
NSOLN(N) a N-SOLNG 

NP€J«T(N) a mportg. 

NPiLMtN) a NPIUAU 
KOPK(N) a KOPKG 
KOFCtN) a KOFCG .. 

«Rire (6*200.0) N*BO(JO *BL(N) .&Cte*)*»/lSCtN) .PVAP^(N).mi(N)* 

I TH2tN).Pai(N) ,PQ2tN) *NaRLO(N) .iXSOLNCN ).MP0RT(N) . 

I MFILM(N)_,K0FK(N) *KOFC{N) 

FUTURE 

AOO restart CAPAaiUl TJES 1-N ThE future if NECESSAfiT- 
WRITE! 6. 1312 ) 

1312 FORMAT ( 5X* • 1 NO.N.NUMEa *-,3l I 0 ) 

IF (N.EQ.NUME) RETURN 

IF (N.GT.M) GO To 160 
GO TO 120 


C. 

C* 

c* 

c« 

c* 

c. 

c* 

c 

c 

c 

c 

c 

c 


ASSEMBLE instantaneous FORCE VECTOR. • 

TANGENT STIFFNESS! AK) ANO TANGENT DAMPING tAC).. • 

matrices of The be a ri ng~ element • 


c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


A20 IF (IND.NE.A) RETURN 

NO= 12 ' 

DO 740 Nal.NUME 

CHECK IF ELEMENT BELONGS TO THE CURRENT BLUCN— 

CALL ECHEGK !LM! I.N) .NO. ICODS* lUPOt). 

IF UCOOE.EO^) lELCPL a IELCPL ♦ I 
IF ! ICOO£*EQ*1> aO TO 740 

«^4tA«*4«FUTURE <Kl4i****** 

AOO BIRTH AND OEATM OPTIONS LATER IF NECESSART 

«*4i4i««4i«W«F UTURE* ♦♦♦*♦♦♦ 

CALCULATE INERTIAL COORDINATES OF DAMPER 

INSIDE AND outside SURFACE -CENTER-A. I NE 

XHB a XY2! 1 .N) 


nnonrv n c n co r>r> 


OFUGINAI W/vlii.. Vi 
OF POOR QUAU'i 


aeARNG aATE * S4229 - d9/ieA4 4 

IF (UM< I ,N)*GT«0)-X«B a X<UM(l *i4n_ 

C VHB a XYZ( 2«NI 

IF (L.M(2*N>«GT.O) YKB a X ( 4.M(2- • N )-) 

C ZK3aXYZ{J.N) 

IF U_M( J.N.) .GT.O)- iRa-= X( U4t3-*J4i.). 

c xsasxYZt A«r4) 

IF (LM< 7#N).GT,0) XSU = X(LMU-,N)X 

C YSBaXYZ(S«N) 

IF (LM(B*N>»GT.O) YS3 = X(LM(8»Nn 
C ZS3sXYZ(&.N) 

IF (LM{<^#N)*ar.(>) ZSd a X4-l.M(»»Mn 

OO 72t» LaltNO 

VEUa(L.)aO« 

ACC3(L >aa.. — 
laLM(L.«N ) 

IF (1.GT.0) VeL8(L)»Yil) 

IF ( I .GT->0) ACCB<L)aZ(l) 


725 CONTII'WJE 


XOTM a YELaiU 
YBTR a VELQ(2) 

ZOTR a VELBO) 

XOTS a VELB(7) 

YBTS a VEi.B(8) 

ZOTS a VEL.B(9) 

XOT2R a ACCB{ I ) 

YDT2R a ACC3(2) 

Z0T2R a ACCB(3) 

XOT2S a ACCB( 7) 

YOT2S a ACCaC 3) 

ZOT2S a ACC8(9> 

WRITE (6.250>) XRB *>88 tZRS .XSB »Y:sa, ZSB 
2500 FURRAT { 7X* • X-ROTOR • .5X * • Y-ROTUR • »5X . * Z-ROTOR* ,4X ..»X-StATOR* •. 

1 §X. 'Y-STATUR'.aX* ‘Z-STATOR *»y/.5X«.5<2X»-Ul3«6} ) 

WRITE (6*2550) XDTR.YDTR,ZDTR. XOTS* YOtS.ZBTS 
2560 FORMAT (TXi'RDTOH XOT • »4X • • ROT OR YO T » *4X*HUJUk ZOt • • 

1 3X* *StAT0R XOT» *4X* •STATUR. YOT •*3X.*SrAtX}R ZOT? ►Z/. 

2 SX»6( 2X.013.6) ) 

WRITE (6*2600) X0T2R* YOt2-R*.ZBT2R* X0T2S.*Y0T2S *201:28 
2600 FORMAT (7X**«0TUR XD-T2 * * 4X , > ROT UR Y0T2 • *3X# •KUtOR ZOT2*.. 

1 3X» •'STATOR SOT 2 ‘.ax, ‘STATOR Y-OTZ‘. 3X».‘.ST ATOR. 20T2‘ .// . • 

2 5X .6( 2X.OIS.6).) 

GET BACK THE OTHER ELEMENT PROPERTIES TO BE 

USED IN SOUESZE 

ODE a aO(N> 

BLE a UL( N) 

3CE a UC(N) 

VI-SCE a VlaCtN) 

PVAPE a PVAP(N) 

THlE a THl(N) 

THZE a tH2(N) 

PBIE a PBUN) 


ORICI^Wl, p.'Uil; l!S» 
OF f>00.%’ QUAUTY 


A3-65 


1 


BEARNO- . JATE = aU29 3<i/lS/44 


C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


c 

c 

c 

c 


c 

c 


PB2£ e PQ<>{N) 

NGRIDE s N^RUXN) 
NSJCNE = HSULN(N) 
NPURtt a NPQRTUil 
NFIUME = NFILM<H> 
KOFKE a KOFKCNJ 
KOFCt a KDFC(H) 


00 T'26- la UNO 
7^6 RE( U*0 . 

00 727 la l,7d 

727 S(l)aO. 

CALL squeeze, to calculate I NS'tANlANeaoLS FORCE VECTOR. 

ST IFFNESS MATRlXlAKl ANO OAMPtNfl MATRIX (AC) . 

CALL SQUEE2 ( 80 S .BLE.aCE.VI SCE.IHlc .THae.FElE* PB2e.. 

1 VRa,ZR3.Y0TR.20TRfctSa*2Sd*«0TS.20tS.jA»a 1*.AX12. 

2 AK22.AC11 .AC22.Ft *F2.NGRIOe*NSULNE.NPORTe. 

3 KOFKE.KOFCE.NFILME.PVAPE) 


St 13 ) a AKl I 
S( IA> a AK12 
S(19) a-AMl 
S(20> a-AKl2 
S(24) a AX22 
S(29) a-AKI2 
St JO ) a-AK22 
St64) a AXll 
S<63) a AK12 
S(694 a AK22 


RE( 2 ) a -Ft 
RE<3) a -F2 
HE(d) a PI 
RL(9) a F2 


F IP( N) aF I 
F 2P{ N ) aF 2 

FR(hUaOSa«T(Fl*F l*E2.4F2) 


AO-O ELEMENT VECTOR-RE TO EXTERNAL uOAO VECTOR - — 


VRITE (-6.981) (S(l).laU78) 

981 FUH.MAT (-8X. »0EAWING STIFFNESS (8EAR I NO 1 • .//. 

I 8( JX.0l3.-6) ) . 

CALL AOOOAN ( A(.MAOH)»A(N.l) .S.RE.LMd tN)*ND.2). 


ADO ELEMENT STIFFNESS irAtU- 


I 


I 


T 

i 

i 

I 


j 


A3-66 

OF POOR QUAt n H 


Ot£AHNU 


aATl£-^a~A1242J 


3 9/16/44 


C 

c 

c 


c 

c 

c 


c 


c 

c 


c 


i: 


iimiTE u>*.4e>l» (LM( 1 .N> «1 3t »NO) 

♦ t»l FOMMAr I UXg *LMA<4HAr(uL:At41M»» : ^-.// *J».X »d (2X t lt2) i .. 

WRXrt U>#7SO» IHEF 

rno FOKMAi: ( //✓, 1R£F (aEAHiNlil $S*»S, fe* ,1S,///) 

IF { laEF I 64.1*739*64.1 

739 CALL ADOBAN ( A(-NA » *A(J4 I ) #5 *Rt , LMU * NI- , N3*l ) . 

AOO EFFEC4— OF dEAKlNU UA.9PING MATRiX (AC) 

oAt IF ( K3FCE *eO.O) GO TO 740 
OU 7-4 1 1-1,NL> 

741- «E( I )---0. 

DO 74.: 1=1,76 
743 S( 1 )=0* 

RE(3>= ( A4*i )*V4.>TR.4A5*V0Ti:R* 

RE(J)= ( A4-1 )*20^rrlFA64 20T2rt 
RE(a>= (A4-1 )4VjrSFA‘j*Y0T3S 
Rt(9)=i (-A4— 1) ♦2i>T6*A6*30r26 


WHITE (6,749) A4 , A6 , YO TR ,Yl>T2R ,YUT> *yt>T2-i 

749 F0H.9AT ( 6X-* ♦ A4* Ab* VL> tR , Vl)T2K ,YaT 6 ,7 Ot 26 I * *// . 6( 3X-.0 )3- 

WRITE (6*7b9) ( RE(l ) .1 =l *N0) 

759 FORMAT ( bX , * NUMER LCAL TIME IRTEGRArtON VALUES OF 9ELUCX T I E5 : * * 
I //,fl(3X,CFl2*.b> F 

WHITE (0,751) ACil*AC23 

751 FUWMAT ( bX , • UAMf> I NO MATRIX : • , 3 ( lOX , 0 1 3. 6 ) ) 

S( I 3 )-AC 1 I 
S( 19)^-AC1 I 
5( 34 )-AC33 
S( 30 )=-AC32 
S( 64 > = AC I t 
S(69 )=AC2 3 


LL = 0 
»_J=I 

00 743 L=l,NO 

I-LM(L.N) 

DU 744 X=L,Mi> 

LL=LLFl 

IF ( I .EQ.O) go to 744 
R ( 1 ) ( 1 ) -b( LL ) *KE ( K ) 

WHITE (6* 753) L, 1*N*LL,R(1 ) ,3(LL> «RE-(IU 
763 FORMAT ( 5X • L » I , K.LL *R U ) , 4( LL ) , RE( K ) t * 

I //*3bX*4(4X,l5) ,10X,3(4X.D13.3)) 

744 continue 

U (L*La»NO) uU To 743 

UI.st4.l 

00 74'3 J-LI,N0 
E3=LJFl- 

IF (J.EQ.ND) LJ=LJFE 

1 J3^LM( J.N) 

IF (IJ.Ca.O) UO TO 740 
K( IJ )=H ( i J )-3( LJ)-4RE(L) 

WHIIE (0,765) L,Ll *3»L3,I J,R( I3I ,b(L3) *HE(L) 
765 FORMAT ( jX , *L ,H , 3 *L J , I J ,R ( I 3) . S( L J ) »HL.(L) :•* 
I //, 35X, 5( 4X*16^3, J( 4X .0 t 2, ‘i) ) 


ORIGIM.U r.uTY, 

OF POOJ? quality 


A3-67 


aEANNG 


date a 


/4C> 

?43 

753 

740 


CONT INUli 
CUNT INOE 
VWilTE (6.753J 
FORMAT 
CUNT INU£ 


V£CTQK'*'*//4*i^ ) 


c 

RETURN 

C 

1000 FORMAT 
C 

FORMAT 

C 

I 

C 

C 

3 NS 


(110# AF'l 0.0./ ♦ 3F I 0.-0 #6151 
(//////, 4X » *aeARiN(i Element 
• n- ao 3< — 

.•PVAP- Trtl TH2 

NP NF . KK KC • ) 


I nF OrtMATl UN * • // » ^ X. 
aC . W.JLSC. 

pa I PB2 


*■2000 FORMAT ( 15. wn. 4,415.2-14) 
C 

END 


t 


Mo 


OW® 

of 


iS.lS 


A3-68 


FORTRAN IV Gt REUEASe 2*0 BEARNG GATE = 


♦options in eF^ECT«t NOTeRN#ID*EBCDlC *SOURCE»NOl.i SX^NaOECHtUOACUMlMAP 

♦ CPflONS IN effect* name =- 0EARNG- . LINECnT a 

♦ statistics* source STATEMENtS = 1 82 # PROGRAM -SIZE =- SSOS 

♦statistics*- no diagnostics GENERATEO 


n o r. n ri r. n 


I I.KllI I I I :lll 


ORlGS?^At PAG2 
OF POOR QUALltY 


1^9- 


MAiM 


t>Afe-.= 


39/18/44 


t ? i* »4c#<i4HUi<L*.<t <1 <L ^ A » » * * » * J, * J. J. ^ ^ J. J. . 

******* ♦♦♦♦♦♦♦ *'44<'4 * Jt ff, f* * 


C 

c 

c 

c 


SUBrtOUTlNfc: SlZEBlNl 
IMPLICIT REAL ♦8(A-H^O-Z) 
COMMON B-( I ) 

COMMON /BEAR-/ I HEAR . MTOTB 


WRITE (6*1000) 
write (6,1001) N 
IF (N.LT.MTOTd) <iO TO ^0 
WH ITE ( 6, 100 4) N - 
STOP 

20 WRITE (6,1003) 

^1000 FORMAT (/,4X,*C0RE INFORMATION tOEC I MAD •• • • 1 

^lOOl FORMAT (4X,‘ REQOEStEO CORE FOR SEA Ml NU- 1 NF OR MAT I -ON ••>&X,4w) 

^1004 FORMAT (4X** NOX AVAILABLE STOP * , / ,4 X« *44 * 4CHANIGE HtOTdi-* 

1 


'(IN MAIN) TO (AT LEAST) 




1008 FORMAT (4X.» OBTAINED •,//) 

RETURN 
END 


I 


ORIGINAL PA.Ti 

or POOR quality:. 


A3-7Q 


FQRTRAr+ IV Ul RELEASE 2.0 


SI ZEa 


□ ate = dlZZSL 


♦OPt IONS 
•.OPTIONS 


NaTERM.*J D . EB COI C *S0 URCt . MOLt Sf # NOOE CIL^LU AO .NOSIAP 
NAME = SUtB •^^J^NECNI = 

•e «tf ATPMFfMT«4. a LS* PftOORAM SliLE = o4Q 


IN EFFECTS *■«.».* — 

LN EFFECT* NAME = - 

• STATISTICS* SOURCE STATEMENTS . U»* PftOuRAM SlilE - 

• STATISTICS* NO OIAG»MOSTTCS OENERAtEO 


'.r,nr>rir)r-,r,nr>nnrir.nnr.c,rc.r.r. 


A3-71 


ORIGIMAU PAlT:;^ IS 
OF POOR QUALITY 


MA-tN 


JATE = 8 1^23 


0 9/1 0/4 4 _ 


c 


c 

c 

c 

c 

c 

c 

c 


SUBSUUTINE S 0 UeEZ(AO.AL.AC,AISC.Arm .ATK2*A0U AS2.U*V, - 
X UO T , VO T . U0 . Va-aJBT . va T , AKl I . AK X 2 . AK.22 . AC I I . AC22. I • P 2. NGR I A.-M0O-.A » 
2 NPOKA *NAFK »KAFC »NF IL.A ,PVAA) - - 

NONEINIEAR TIME-TRANSlENt SQUEE2E-FIL» OA.H^^ INTERACTIVE EuEMENT 
THIS CODE COMPUTES INSTANTANEOUS FORCE VECTOtt- AND. ITS 


SPATIAL viRADIENtSt 
MATRICES. 


l.£ 


THE TANUENT STIFFNESS AND DAMPING. 


nomenclature 


L. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INPUT 

dD=NOMlNAL HAMPER ANNULUS. OJIAMETERC 1J>J> 
dL-NOMINAL damper ANNULUS LENoTHClN) 

UC-JAMPhR ANNULUS RADIAL CLE AR ANCE( I N) 

VISC-UAMPlR LU0RICANT V I SC OS I T V ( REY NS » 

PVAP=FILM RUPTURE PRE SSURE ( P S I A ) 

THT( 1)“PUSIT10N ANGLE OF LUSRI CANT PaRT-l(D£G4- 
THT(2)=PUSITIUN ANGLE OF LUBRICANT PORt-aCOEOi 
PBC I )-SP£CIF lED BOUNDARY PRESSURE A T PuRt •! tPS lA> 

PB( 2 )-SPlCIF lEO BOUNDARY PRESSURE At P0Rt»2i I A I 

NCRI0=NU.MUEM UF FI NtTE -difference OR ID POINTS PER DAMPER ARC(JDD> 
N SQlN -■ I t LUNG— PEAR I NG SOLUTION USED 

=2. SHUMT-aEARING(PARAaOLlC) SJLUTIOM USED 
SJ.FUUW I ERASER ICS 2-D CONVERGENT SOLUTION USED 
NPQRT-NUMULR of lubricant PORTStJ*! OR £) 

If. NPORfsO. JOINEO-OUUNOARY CUNO-tTljN IS USED 




ORlGlWAt i 
OF POOft QUAUTV 


A3-7^- 


saugEl 


UATE a 612^'* 


ay>tia/A4 


NFIuM=NUMB£H UF 10&N.T1CAL. ANNUl.1 F43R TlHE DAMPER 

KOF< = Ot STIFFNESS MATRIX Naf-COMeaTEii_ 

<OF K = I . S T IF FNE S S MATR LX COMP Ot ED 
KOFC=0. DAMPING MAtttI X NOt COMPUTED 
KOFCal*DAMPlNa MATRIX COMPUTED 

XaX-lNERflAt. CJORDINATE JF DAMPER l.NSlOE. SURF-ACE CEN TERM. I NS UNl 
Y=Y-1NLRT1AL CauROINATE OF DAMPER I NSl OE-SURFA CE_CEN.TER-l.tNEaNJ ■ 

XDT=X-INERT1AL VELOCITY OF INSIDE SURFACE CENTER-LlNEtlN/SECJ 

Y0T=Y-1NERTIAL VELOCITY UF INSIDE SURFACE CENT ER-L I nEUH/SEC I ^ 

XS = X*INERTIAL..C00R0INATE of damper OUtSlOE SURFACE CENTERS- INET-IN I 
YB-Y-INERTIAL COURDINATE of damper OUTSI.de surface CENTER.-CINE1INI. 
XBT=X-lMtRTIAL VELOCITY OMAMPER JUTSiDE SURF ACE GENtER-L INE< IN I 
YBT*Y-INE«TIAL VELOCITY OF -MPER DUTSIOE SURF-ACE CEN-TER.-LINECI.N) 

OUTPUT 

fi=x-forcl component on insloe damper SURFACElLaSI 

F2=Y-F0RCt COMPONENT ON INSIDE DAMPER SUSF.ACEU.SS1. 

FORCE CORFONENTS ON OOfSIBE ORNBER- SURPRCE. ARE EOOAO 8Jr OHPOS.IE 
FI AND. FC BECAUSE FLUID INERTIA .EFFECTS ARE NEOLECTEB 
SYMMETRIC ..POR TI ON OF STIF.FJXESS MATRIX S 
AM IsXXXl LDS/LNI 
AAl2=l«cXY(LaS/IN)3R.YX 
AlS.22=KYY(L3SaN) 

DIAGONAL PORTION OF’ DAMPING MATRIX 
ACl l»CXX(Ld*SeC/IN) 

ACE2=CYY(LB*SEC/II41 
IMPLICIT RtAL*a (A*H»0«2) 

common/ INPUT I /ilD»BL tOC »VlSC»THT(2l .PStE) tPV^AP 
COMMON/ INPUT 2/NGHlD *NSUUN»NPORT *NFILM- 


ORIGINAL PAS i U- 
OF POOR QUALIIY. 


5 

A3-73 ' 

V 

1 

i 


saueez »«e = »izz» 09/xa/»4.- 

COMHON/COORO/X» Y *XOT tVOT •XB » YS • XBT» YST 

COMMON/F ILM/ThU oi> »Ht lail .OHpX( 10 I 0 1 ) .GtH( 10 L) . 

10X0( 2) ♦AUFA( 21- 
COMMON/ WORK/FNOOMl * KB • KOUNT 
COMMON/ 1 NC /H M IN ». VEL • OE L. S ♦ OEU ST 

OIMENSION A{ 101) .ailOl > .cuon .E( 101 ) .RH( ioi.).R(iQii.ARGmoi ) ... 

I ARG21 1010 »Dl 10 U) 

AU-OCATE input. NAMES. .. . 

BO = AD 
BL » AL 
BC ® AC 
Vise s AISC 
THT(l)® ATHl 
THT(2)= ATM2 
PBtl) * ABl 

PB(2) * AB2 

PVAP = PVAA . 

X = U 

Y * . 

)(OT » UOT 

YOT * VDT 

XB = UB 

YD = va 

XBT * UBT 

YSt a VBT 

NGRIO a N4iRlA 
NGOL.N a NSOLA 
NPORT a NPORA 
KOFK a KAFK 
KOFC a KAFC 
NFILM a NFILA 

? Ix.‘ JrOTOR YOT * t4X -•STAT QR XDT ^*.SX. ‘SI Am» .TOl» _ 

2 5X*at2X.C)l3*6) ) 

tt£>«Nr I NF Q«H«laN*..Z/ 


1 

2 


• 80 

« *PVAR. 


BC 

THl 


BC 

TH2 


Vise 

P81 


PB2~ 


MS- 


la format ( VO 1 1 • a* AlSiRl 4) 


UU U'JU uou 


A3- 74 


omClNALPAGStS 

nitlil ITT 


SQUEEZ 


JAiE » aj.22^ 


C 

c 


c 

c 

c 

c 

c 


c 

c 

c 


SET UP 

KOUNT = I 

MTEST a NGSIIO- ♦ 1 

NTESt = MTESt/2 

<TEST a 2*NTESr 

iF{KTcSTl*NE,.MTeST) NCR IOa|«*aR.IO*l 


FNGOMU 
fHK 1) 


FL0ATIN6RI0«*^1> 
thT( u*Hi/iao« 


tF(MP0RT.LT.2) GO- TO 20 
ThT( 2) * THr(2)*Pl/180« 


1F{ TMT( 2i*LT*TKT < 1) ) tMT<2 ) a TH T ( 2i «-2 . ♦PI 


ALFA ( I ) a 
AUFA.C2) a 
0X0(1) a 
0XD( 2) a 

GO TO 40 


THTt2)*THTM> 
2«4Pt«ALFA( I )- 
0. 5480 ♦ALFA! D/FNGOMI 
0* S#a04ALFA(2) /FNGOMl 


20 OXO( l> a aO*Pl/FNGOMl 
ALFA(l) a 2.«PI 


40 CONTINUE 


MR ITE( 6* 10 )0XD( 1 ) «0XD(2) 

AKXX a 0.0 

AKXY a 0.0 

Axrx a 0.0 

AXYY a 0.0 

ACXX a 0.0 

ACXY a 0. 0 

ACYX a 0.0 

ACYY a 0.0 

FX a 0.0 

FY a 0.0 


BRANCH ACCOHOtNG TO SOLUTION OESIGNATEO 

bO CONf'lNUE 

CALL INCRNT 

55 1° C 100. 100.3001 .NS CtN 
I '' COKTlNUfc 


SOuVE FUR SQUEEZE FILM POESSUti Ota TR 18UT U3N- 


00 190 KBaiiNPORT 
P( l)aPO(na) 
IFtXB.EU. 1 > 

1F( XB.EQ.2) 
0Xa>X0( Kd ) 

CALL OFlLM 
At 2)&0.0 


PCNGRIO )aRB( 2) 
“(NURl-O) aPBt I ) 


09/ 18/44 




^IGiNAL PAQc 13- 
OP POOt QUAun 


A3- 75 


sau££it 


JAte. « 812A9 


3 9/1 d/4 4 


e<2) s P(i> 

Oa no K=2*NGR10 
COEPI = H(K)*43/0X*#2. 

C0EP2 » Cl •5#«tX)*42)«OMOXtKlZQX 

CtX). »-2.4CaEFl. 

0(XJ = CUEFL^'COEFa 
E(X) » COEF I-COE3F2 
RH(X1* 12*4V1SG*0H0.TCK) 

iP(NS 0 UN»Ea-U. GO Ta n o 

CIO * CtK)-C8*4JliJU.443>/BL*42 

continue 

NGftO si NGRl a-»t 
00 1-2 j> Xs 2,NGR0 
FOCTR * CtN)>E(K14ACO_ 

4(K+ U=-t>tK>/FOCTR 
8iK'nJ.=.(.HHC Xl<«C Kl*&tX) ) /FOCTR 
NCR = NGRIO-'^. 

00 130. K»l-*NGft 
J. sz N<iRiO-K 

P(J) = AtJ^l-lAPCJ^lM-Bt J-M> 

LFlP-1 J >-.LT.PVAPl PIJ|=PVAP 
CON T INUE 

WKITEi d* 135){ P< J.) » J-l I NGRIO) 

FORHATCiTX* 14E9»2) 

INTEGRATE PRESSURE DISTRIBUTION TO GET 

00 140 K-t,NGRlD 
ARGtOO sP(X)*CrM(K> 

ARG2(X) = P(K)4STHIK) 

A1 ARGl i noARGlCNGRlD) 

A2 = ARG2< t)^ARG2( NGRIO) 

B t ss 0* 0 

a 2 s 0 . 0 

DO ISO K32«NGR0«2 
B2 = B24ARG2(K) 

ai sc Bl^hAKGKK) — 

Cl s; 0..0 
C2 = 0.0 

DO 160 Ks-StNGR.2 
C IsC 14-AKG t( K) 

C2ssC2^ARG2I K > 

0THETs:2.*UX/30 
FACTR=FL0AT{ NFILNH‘OTHET/3. 

XQaFACTR4( Al^4. ♦ai^-a.O.Cl ) 

VQsFACTK*-! A244.4U2+2.4C2) 

IFINSOLN^EO. I ) F ACTRa»t)0*BU/2.- 

IF (NSUON .EG. 2 ) FACTRa^tt040L/3* 

XQaXa*FACtR 

VUs:YO*FACTR 

FXaFX^XQ 

FV«FVFY0 

CONTINUE 

GU To t 500. 520* 940. 560.530) sKaUNT 

FlaFX 

F2»F Y 

IFU K0FK.Ea. 0) .AND. CKOFC.EQ.O) ) RETURN 
IFIKGFK.EU. 0 ) KUUNTa4 


force components 


Aa-76- 


Om^lNAL PAQE 13 
or rK30R QUALITY 


saug£z. 


i3at£ St a 


09/10/44 


IF<KOPK*£a*^ »- GO- TO GO- 
GO to 09 G 

520 AKXX»( F X-n )-/t>ei-S. 

AKVX«U* Y-F.2 1 /0£LS> 
aa TO 0.90 

040 AKXYa(FX-Fl)./Oei.0- 
AKY Y sa( J® Y-F 2 ) /DELS 
C WftiTE CG.G57-)' AKXXtAKXY..AXYY 

607 FOftMAT ( SX* •SSAfUNG GTlF^F* (S0UEE2) : • »3<0X..Ol3*6.)^^l. 

AKllat«AKXX. 

AK22*-AKYY- 

AK.12»«0 . 0a( AKXY-kAKYX) 

C WR.ITE ( 6..607 »-AKLl •AX12»AK22._ 

C WRITE (6*600) F-l.*F2 

606 format (5X*.»F0RCES Ob) JTHE ROTOR: • *// .aiEX.OlS.S) ) 
iFtKOFO •£ a. Gl- RETURN 
GO- TO 090 

560 ACXX*<FX-Fl>/Oeu0T 
ACYXa»( F Y-F2 )/OEC0T 
GO TO 090 

580 ACXV*( F X-F 1 ) /OEC ST 

ACY.Y*s(FY-F2) /OEUST - — 

GO TO 600 

S90 X0utiTstKOUNT4 1 

GO TO 60 

600 continue 

ACTl«-*ACXX. 

AC22s'M»acYY 

return 

300 wRtTE( 6..700) 

RETURN 

TOO F0RNAT(1HI//SX*F0URIER-SER1ES_2-D OFT I on N ai- R £AO Y ._ FQR ..j J j S E- * - // .L 
END 



nr*o 


A3- 78 


oRi6m>«* 

of POOR QUW-\tY- - 


I4A1N. — 


-a— 


09 / 18/44 


C 

c 

c 

c 

c 

c 

c 


SU8«0UTINE OFILM 
IMi^LIClT REAL*a lA*^,0-2) 

common/ Input i/oo tBupsc p-vx scpTH t (21 tpa <2> tPVA^ 

COMMON/ INPUT2/NaRXJ«NaOLN»NPORT#NFl4_M 
COMMON/COORO/X. Y,XDf,VOT.xa*ya .XaT, YBT 

COMMON/F 1 LM/ TH( I 01 ) ,M( 101 1 . OHOX( 1 0 1 )-pDHOT (101) *S TM( I 0 1 ) * CTH ( 1 0 1 ) . 

I- DX0(2).iALFA(2) 

COMMON/WORK/PnGOMI ►KBpXOUN.T 

COMPUTE 0ISTR13UTI0NS FOR H.OMOX AND OHOT 

RsSO/2 • 

OANGaAL/^At KB I/FNGOMI 
lF(KB*ea*lJ TM( l )jsTHT( l ) 

IF(K8.EQ,2J TH( I )=TKT(2)— 

00 50 Ka2»NGRIO 
50 TH(K )aTH( K-1 ) 4*04^3. 

COG:: OCOS( DANG) 

506a0SlN( OANG) 

CTH( 1 )»DCUS( TMt I ).) 

STH( l)*OSIN.( TH( I ) ) 
l>g 100 K.a2»NGRlO 

. CjHt ‘^)=CTH(K-1)#C0G-STH(K«1)*S0G 
lOO STH( K)aStH( <•! > 4C0G4-CTM(K«*1 ) tSOG 
00 ISO KsIpNGRXO 

H(K)«BC-(X«X3)«CTM(K)-(Y-Y8)«STH(X) 

IF( H(K ) .(.TpO* ) GO. TO 500 

t)M0X(K>s( ( X*»xa) 4STH(K)<*( Y^ya)4CT'H(K) )/R 

HPTimM T-XB T) *CTH(K) -( YOT«YBtJUth{ K) 

500 WRlTEt a. 600) KB . K 
STOP 

501 RETURN- 

thickness ENCOUNTEREOL_AT.-Ka.Xa*, 

ENO - - 



at 


FORTftAN IV 01 


♦ OPTIONS IN 

♦ OPT I ONS I N 
♦STAT ISTICS^ 
♦STATISTICS* 


Oa»AL PAGtt’ IJ 
OF F 008 quality 


A3-79 


ReLeAse-42.0 


oeilm 


OATe = 


iF-Fectl. 

SOURCE statements ~ 31*Ij3PQ^AM - ,«iA 

NO DIAGNOSTICS GEN&IATEO ■» * •■^»<OoFlAM SIZE - I OJA 


noooo 


MAtN 




0^/13/44 


^♦♦♦♦♦♦♦•♦^»4*** 4**»»»»»4***» ****-*-* * ***-*-4**.*l»*4U»»»»»i»«<l «»*««♦<!.» »»»»♦♦*»** 

^ SU8ftOUJt.lNE INCRNT. 


THIS S-USkClUT INE INCkCMENTS -&l SPUACfiMfiNf S- A»'JU 3 EL0CIT-IE'S ?0« 
THE PUHP 08 E OJ? NUMEHICALLYL Oll*F£k£iiI.lAXl.NU.. lrtti_.S,^!J.Sd2Js..fr{L 
FORCE VECTOS.. 


IMPLICIT REAL*3 (A-H.O-Zl 

COMMOM/INPOT l/B 0 .aL» 8 C*Vl$C«THT( 2 ) (P8(2) iPVAP 
COMMON/CUuRO/X,Y.Xt)T,VOT.Xa-.ra .XliTtYBT 
CO(4HON/**OHK/FNOOl4l *KO.KOUNT 
COM)40H/INC/HMIH» VEL*0ELS»I>ELST 

IFKOUNT.NE* 1) OQ TO 10 
SXsX 

sv=y 

SXOT=XOT 
SVDt=YaT 
RETURN 
10 CONTINUE 
X=SX - 
Y=SY- 
XOTaSXOT 
YOT=SYOt. 

HMIN=C-0SQRT( < x-xaj ♦•24< Y-Yaj4*2) 

VEL=DSURT( ( Xt)T-XaT>*A2AX YDt«YBT)**2) 

OELS=O.Ot>*HHlN 

aELaT=0 4 0S*V6L 

IFtKOUMT •8 0.21 XsX^'OEL^ 

lF(XOUNT.£Q.31 V*V*>OtiL3 

lFlKOUN.t.LQ.4) XOTsXOT<^)ELST 

1 F (X OUN T • EO •JiJ-JitOT sYOlT ♦OECaT 

RETUftN 

END 


A3 -8-1 


oniGlNAL PACE SS 
OF POOft QUALITY 


FQRTRAM. IV Gl RELEASE 


► 0 


INCRtil- 


OATE a At^^9— 


*C3R^TI0NS- in effect* N0T£RH*14>»£&C0IC* source »N0L1 ST tUXlOEjCK ^ load cNUHAP 
♦ OP-TIONS- IN- EFFECT* NAME » INCRNT' « LiNECNT a 60 

♦statistics* source statements = 27.PR0GRAM SIZE * 740 

♦STATISTICS* NO diagnostics GEnERATED 


n ft n n n r. n r> o f) rt o o o o r> o n n o 






W 


W 


A >82 _J J 

original PAas: t 3 ^ I 

OrPOORlQUAyTY,^ i I 


main. JAT£, s 842ita 09/IB/A4 

C DATA S6T TRUSS At LEVEL TMP AS OF 0 8/17/31 

C *000 ♦ iiOECK UVL2-0 
C *C0C* OVERLAY (AOl^4A^^•.0) 

C *CaC* AOECX TRUSS. 

C AUViA )F0R».1S n*truss« r* truss 
C-*E0C* PROGRAM, truss 

subroutine truss 

c 

IMPLICIT- REALMS IA-H*0-Z) 


S T O R A G..E •-' 


N 102 
N 103 
NIOQ 
N 106 
N-107 
N103 
N109 
N LIO 
NIII 
N112 
N 113 
N 11 4 
Nils 


OEN. (NECESSARY FoR. STATIC PROBLEMS. TOO) 

area • 

LM CQNNECTIVI TV • 

Xtz ELEMENT NOOAL COOSOINATES • 

MATP MATERIAL PROPERTV SET NUMBER • 

EPSIN- tNl.TlAL STRAIN • 

IPS STRESS. PRINTING F LAC • 

ETtMV ELEMENT BlRTM/OEATM Tl.ME I IF- IOEATH^GT .0) 

EOISB element OI SPS^ A.T BIRTH TIME (IF lOEAT H.*EU. I ) • 

MAalwA WORNlNa ARRAY (SEE 10«IAS) • 

PROP MATERIAL CONSTANTS (SEE NMCON) • 

NJOCL V.LOBAL NODE NUMBERS (SEE NOMS) • 

lELTO element number OF NODES •- 


C 

c 


1 


/DIM/ NO.Nl ,N2.N3#NA*NS*N6.N7»NS.N9 .N10-.N11 .N12..N I3.Nl.<^.» M IS 
/bOt./ NUMNP* NED .NMK . NVII*4.»NK(C . NUMEST * MiOESt *i4AXEST » l4St £. M A 
/pt / IND. (COUNT »NPARt201 , NOMEG •N£UL..NE«NL.-tMASS. I DAMP-.. I ST AT 
. NOOF .KLI N. lEI G . I MASSN* I DAMPN 
/VAR/ NG.M0DEA. lUPOT. KSTEP. 1 TEMAX. 1 £QKEF.1T£*KPRI . 

IREF.IEDUIT.IPRI .MPLOTN.KPLOTE 

/OPR/ IT mo 

/JUNK/ M£OtL2».MTOT 

/ELGLtH/ NFlRST.NLAST.NaCEL 

/ELStP / TIME.IoTHF- .. 

/PRCON/ rOATmR. lPRIC.NPB, IOC. IVC.IAC, IPC. IPNOD£(3..lS) 

/PORT/ INPORT .,JNPORtVNPUTSV..LUNODE. LUl .LU2>LJ3» JDC. JVC, JAw - 
/TMOOEL/ Ot NEE » NONEL ,LT E L . 1 S PEi. .KIN PEL U EPC 1-,-I.E e . ClC . MQOMAX 

/TfcjJpRT/ TEMPI .JtEMP2 • 1 T.EMPR • I TP9S .N6A. N6B 


COMMON 
COMMON 
COMMON 

COMMON 

COMMON. 

COMMON- 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
REAL A 
0 (MENS ION lA ( U 
EUU^I valence (A(1>.1A(1)) 


OIMENSiON 0ATA(.2D) 

EQUIVALENCE ( NPAR( I ) .NPAftl) . (NPARI 2-> *NUME l> (NPAR43.1..I.NDNL1. ^ 

1 CNPAR(A) aUEATH) , (NPAMCSl .ITTPT) * ( NPAH(.71 .MXNOOS » . 

2 (NPARilO).NINf )• tNpARtlS) »-M0DELl* (NPAR ( Ite) .NJMMAT L. 

3 (NPARi IZl ..NCON ) » ( NPARl 1 9 ) . l I TEMPl 






I 

I 


c 


nrrnnnnc no 




A3-8a — 

OrjJC{W/'iL F.^^2 . 

0£-P001^ quality. 


TRUtSS i>ATE a- a.l229 . 09>U3/*4 

O-IMENSIUN NMCOH( 3) «-LDW AS( 3 h* NO MS (3) 

oatj\ RECuai /8Mf vt*e - i ' 
c 

OAfA N^«UN-/- u 0U9, J. .3»39«39«- 3/ 
iOATA lOWAS / 0» 0* 0* 2». 2» 9-» 9 * . 3/ 

OATA NOMiS / 0.-~CU-_l» 0* 0. li I* 3/ 


IF { INO.NE.O) GO TO-lOO 


* * I N R U T * I* H A S . E " 


CHECK OK RANGE-ANO SET OEFAUUtS FOR NFAR VECTOR 
1 STCW** 0 

C 

OlNELal 

NONE OS 2 

ITELS3 

ISREUs A 

KlNREUaS 

1EPCIS6 

lERCKa? 

MOORAXaS 

C 

IF CNUME«GT*3) go -To 10 
ISTOPalSTOP-t-l 

IF CIStOP.EQ.U WRITE (6.2103T NO 
lSUSs£ 

IRANOEs 1 

WRITE (b,243 0) 1 STOF. I SUE* 1 RANGE • tSUE »KPAR US J 3) 
C 

10 LF (INDNC.OE.O .ANO« 1 NtXNU • UE«^2 ) GO TO US 
iStOPalSTuPFl 

IF ( LSTOP.EO*!) write (6»2100) NO 
isuaa^ 

WRITE (6*22001 1 STOP.l SUN* ISU3 «NPAR ( ISU3 1 
C 

15 IF ( 1DEATH.NE*3) lOTHFat 

IF ( 10EA.TH*GE»3 .ANU* lOE A T.-i*UE»2l GO TO 20 
1 Stops 1 STOP ^ 1 

IF (lsrOP*EO«l} wRtTE (6 *2 to 01 NO 
ISU8S4 

WRITE ( 6*2200 1 STOP *1-SU3* I Sua*NPAR( ISUdl. 

C 

20 IF ( IT ypT*E 0.2.1 GC» fO 25 

IF ( IT>M3^T ..uE .O.ANO.l.TY PT.UE.i l 5U TO 25 
1 Stops 1 STOP 4^1 

IF USTUP.EU.ll WRITE (6.21001 NG 
ISUSsS 

write ( 6.22001 ISTOPtl SU 3 .ISua*NPAR( iSUd) 

C 

25 IF < NXNOOS.UE.O) .4XNOOSs2 
IF CMXNwOS.UE.41 GO TO 30 
isropsisToPAt 

IF (ISTOP.EO.lJ WRITE I6.2U001 -NG 


non onnr.no 


A3=84 


ORifilNAt P&f ® 

or POOR QUAUXY 


TRUSS 


oaT£ s iaaa 


a9^LS/4^- 


1SUB=7 

iS? C 6, ^300) I S^TOR .lSU3.1HANGe«lSUd->NRAttU S J S) 
*1^1 ITvpt.ea*!) GO 

IF (HXN0aS*GT*2> GO T0^3^ 

lffiglt:l2:u“ci ':SRl“3eu.tu..iePOU go to m, 

tiO TO 34 

32. N.lPT=MtNT . » 

It=' (NINT.Ui*.0) NlPTa2 

" ?^^'^li.?:Ge....GO TO M 

iF“lstoP?^ll) »eiIE (6.21001 NG 
ISUSslO 

iS r J . 230 0 » 1 sTOPa sud . 1 «ANGfe asua..NPAR ( IS^ 

35 IF” (MOOtt..LE •<» MODEL.* I . 

IF C MODEL .EE .MUOMAX) uU- TO 40 

lP^MSTOP*EQ* 1) WRITE t6»£lQ0> NG 

il ITE ♦ 2 3 0 0 > l-ST OP. t SUS. MODM-AX .IS U d. NPAR (-UAd ^ 


40 IF ( NUHMA t .LC *0 ) OivJMMAT-l 


4S 


IF t MUUEL.EQ.MOOMAX) _UO TO 50 
IF I MODEL »Wt .NONEi-) oO TO. 4S 
IF lNCUN»<iki*4l GU TU 

IF^l’lstop'iEolll Wrtlte 16.2100X t4G 

ISU3=1 7 

1Su^TJ. 240.04-LSTOP.I SUO.NPARUSOd) .IRANGE. 

GO TU 50 

NCON = MMtQNlMODEL » 
check on GOMPATldtLl 


I NTS Of NPAR. 


1. CUMPAt lOlLlTY Of INONL AND IOEATH 


SO 


IF I INDNL .GT.^0> GO TO 55 
IP ( lOLATH.tG.O) GO TO 52 

LF^?*lsfoP^Loil» WRITE (6.2LQ(M. NG 

WR I TE*^ t o. 250UO > I STOP.l SUO . NPARU 300 > • 1 SOD . NRAR 1 1 SUD> 


2. COMPATtOILl TY OF- INONL AND ItYRt 


52 IF (ITYPT.NC.2) GO TO 54 
ISIUP* ISTUH ♦ I 
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9 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 


wrtire <6,2 loo) nj 
wrtiTie <6.2saa) isfo»*i su*3.N(>AR(xsua> .isja*Nf»ARtiajo> 


54 


i # C U MPAT Is I L t T Y OF I NO NL A NO HODSL 


55 


«o '« 

fsooits®*'’^'* •«*>'E-‘»*2100I Ml. 

•Rire U.2S0« IsrOB..|SU3.NPAR.USUJU$JlU,>..A«U^o, 

4« COMfi^ATiaitJ tY OF MXNOOS ANO 1TYJ2T 

1 SU8-S5 
ISUi>=r 

IF U4XriUDS.Ne.n GO. ro 60 
t IJf VP^T.EQ. I ) Ga-TQ 60- 
lSfOP=IsTUF+L 

16,2100) NG. 

WRITE. (O.250J) IST0P,iSU8^i^PAR(.iSUl).IS0D,A4>A«USJ0) 


CHECK eOH temperature TAPE 


60 


C 

c 

C**0 


ITEMPRsO 

J UjJOtL.EQ.xrEU> itempr=i 
IF ( i?E5pR‘!Ea!iria"?i*73“^^‘"*^®-'^’"'^^ IT£MPR=2 

«.aiao, Ma 

70 I ITEMR = 1 TE.MPR 

IF (istqp.eq.q) go to TS 
WRITE (6,2700) I STOP 
INPUT=5 

BACKSPACE INPUT 
HCAi> ( 5.1000) OATA 

write (6,260-0) ( I ,1 ai_,a) .QATa 
IOATWR- 1 i-,oj.UATA 

IF (lOATWR.Gt.n GO TOi 90 
PRINT OUT NPAR VECTOR 

WRITE (6, ..940) H00EU,NUMMATC,NC JN 

IF ( ISTuP.EQ.Q) go to 9S - 

white U6,2750) ^ 

STOP 


75 


90 


OATA PUR THUUE 


USX-ART) 


0 9/18/4 4 


oocnooo 
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TKUSS 


OATE- ^dl22« 


09/1 d/4 4 


95 IP ( j>iP0(tT.*E0-*9 ♦OR*- NPUTSV*e0>01 v»0 -TO 100 
t L Ul i ..H£CLAa NPAR(.l ) » 1 ~ l-*20 1- 


C 

C*4* 


data porthole ♦♦**«t*.**>44**A*#4*444i4**4»4* ( tt-IO ) 


'T 

: I 


•- • • •- 

e N 0 


♦. ■♦- 
O F 


.* « * • 

c H ec 


ON 


* A. r’ * V. e c.T”i R- 


100 


N0M*3*H-XN00S 
IF (ITYPT*EQ*3) 

IF t.itYPt.ea*-!)- 
NOWS MOWS! MODEL) 
IO«A*tOWAStMOOEL ) 4MINT 


NDMs12 

MOM-sl 


NFIRSTs 

20 


■■HIO 


HF IRST«H6 
IF ( IN0*ea* 4) 

N101*NFIR&T - ♦ 

N102«M101 
N103*N102 
N105=N10J 
N t06»!410 5 
h*l07=N 106 
NtlOafMlOT 
Ml 09=14 1 08 
Ml 10=NI 09 
MM^O 

IF ( 1DEATH*GT^0) MM=1 
NUII*M110 ♦ MM*NUMt*lTilfO 

MM=0 . , , 

IF t IDEA TH*E O • I I MM=l ^ 

Nll2=Mlll ♦ M;4*N0M*NUM£4I t»»0 
NOME 41 D KtAA l T «0 

NeOM4HUMMA T*I T *0 
MD 4 *NUME*M XNOD S- 
NUME 


♦ 

4- 

♦ 

4 

4 

■f 

4 


MUMMAT41T40 
NUMMAT#1T40-^ 
NO M4 NOME 
MOM^NO.ME*! T«ia 
NOME 

MUME41T40 

NOME 


NllJ=Nll2 4 
Ml 14= Ml 13 4 
NI15=N114 4 
M116=M115 4 
MLA3t=Nl 16 


4C0C ♦ 
IF 


IF 

»mE*' 


CALL S1ZE(NLASI4£0 0Q) 


lNLAdT.Ot#M4rOt) 

ir (1MO*M§.0) , 

?J:VSktie:u ‘2«{e <i.200». «a..moi£st 

WHITE (6.2030) 

CALL SIZE (ML AST) 


t o*^ t f (iMO.at.S) GO TO no 
M2=M2 
MS-=M.3 
M4=H4 
GO TO 120 

no M2=M2 

M3='47 

IF ( ICOyMT.LT.3) G^O TO 120 


1 


•A. 
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A3-8r 


TRUSS 


OAtE' = 6J.Z29 


3 9/L B/*^ 


M2SN6 


-RUSS 


120 CALL 

1 

2 
S 

IF { INO-GT.O ) 
OO 1 AO lsl*20 
iac.>»first * i 
COM! INUE 

RETUR:'! 

1000 FORMAT (20A4) 


I A f Ml i M2 1bA(M 3) fA( M4) » AC NS) # A.CNI l-S-) • ACMl'02 )■» AC NiiO 3J •- 

ID-A. ii N6A^ I T^o ) 

GU TO ISO 


140 

ISO 


• ' i >af^AR( 1) 


2000 FOR "4 AT 

3 

4 

2030 FOK.4AT 
1 

*2100 FORMAT 
1 

2200 FORMAT 
1 

2300 FORMAT 
1 

2400 FORMAT 
L 

2SOO FORMAT 
1 

2600 FORMAT 
2700 FORMAT 
1 
2 

2800 FORMAT 

1 

2 

2750 FORMAT 
C 

2900 FORMAT 

1 

2 

3 

4 

5 

6 
7 

a 

9 

A 

1 

2 
J 

4 

5 

6 


(//49H LENCTH OF ARRAY NEEDED FOR STOhING ELEMENT CROUP/- 
12H DATA (GROUPS 13 »26K.) • -* • • • •- »• 


( IMl ►ASrtERROR IN ELEMENT GROUP CUNT RUL .CAROS 

16M ELe.wNT.aRoue.r: 


CtRUSS) / 


« NPAR(»X2* 


SHOULO 3E- •L.£»* I 2* I OH • •• NP’A.R t* 1 


SHOULO 


(15.7M* NPARC »12.27H) 

3H) 

(15t7H* NPARC .I2.16H) 

3h) s*I3) 

(I5»7H* NPARC • I 2*16H) 

C^5*7H. NPAR(*12*3H) s»32*lOH 

( 1sC3 7H^ TEMPERATURE^TAJSE SHDULD |E PROYIOED 

^id5^CAR2^lMA2r?flT?NG JSS'^PRlNT^iT UF NPAR VECTOR/ 

(^^^3i^'cARO^'lMAGEMsT?SI^3^ oS^/ /IX-S C C 1 . 9)0/ 

Isi cSlSIn NiMdl5s.5X.3Cl0Hl234Sa7d90)/ 

15M NPAR VECTOR .aiA v 

I//// 23H STOP CERRORS IN-UEAR) * 


&£ •GE*t I 2* iOH Nf*-AR(*-12-* 

AND NPARC«12*3H) =»i2* 

) 


C36H 

14N 

25M 

2SM 

2SM 

2Sn 

20H 

2dH 


T I a 
NP AR C I 


ELEMENT OtFINl 
element TYPE *13C2H *)*16MC 
£0*1 t TRUSS- ELEMENTS/ • - 
2— 01 M ELEMENTS/*- 
ELE.4£NtS/« 

OEA.M elements//* 
elements. * 1 01 2rt .) #46HC. 


///* 

1* . 


»*IS/, 


EG. 2* 
£0.3* 
EQ»A* 
NUM3ER OF 


F ELEMENTS. ^tsHC ^ NPARC 3^*1 *^C* 

NONLINEAR ANALY S IS • *6 i 2H • )* ISHl. NPAR13I J. * 


_ TYPE OF 

lMa.15/. . /. 

3dli lollt MATERIALLY ^l^^nSahtATlQN 

45H £Q-#2f UPDATED LA A NGi AM- FORMULATION 

32H ELEMENT BIRTH ANJ DEATH 0PTIUN5 »4(2W «4 

aaK' ""“eito.’SoriSN'yT .ct./e/. , 

3QH £0*1» birth option act I-Vfc /• 

3oS DEAtTH OPTION active //) 

2920 FORMAT (IdM ELEMENT TYPE CUOE.llCdH .lt»H C NP AR C5) 


// 


13/ 
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trujss 


>AT£. * dl2^9 


09/18/4^ 


1 

2 

4^. 

5 

6^ 

7 

2940 FQR>4AT 

1 

2 
0 

4 

5 
O 
A 

7 

8 
3 
8 
9 
B 
i 


40H 
40H 
42H 
18H 
35H 
12H 
i 42K 
16H 
4dH 
40H 
42H - 
40H 
44H 
44H 
48H — 
48H 
48H 


/» 

/. 4Xi 


Sa*04- G^HERAL 3-0 TRUSS 
MAX I MUM^^SbER^ UF^|o^^ lrt ^ U . 

CALCUUATI0M.«UH. HAA« UOi>. . 

iATERlAI.^MOOEL* *l2UH. . i *L6rt( NPAft t 


£Q«1 * 
Ea«2:« 

e:Q...3* - 
EQ.A.. 

£ 0»S • 

£a»6« 

Ea«>*^ 

£a*a* 


S&ECIFIED) 


• -/• 


/» 

A*. 

X • 


UIREArt £UAST1.C 
MliNClNEAR EUASTIC 
( STRESS -STRAIN -i-A«i 

A STIC— plastic '■ (XINEMATIC) 

It ASTI C-PlaIt I C-CREEP I ^ 9\ 
g^A ST IC-PLAST ixi -cheer i XlNtMAJiC I 
USER SUPPLlEO MOOlL . 

NUaScM OF SlFFeaeMT aETS^OF FATEHI;^^ . 


A 

/. 

✓/. 


3TM NUMaSH Ur *'T’ 7aZ\ moahVIaI 

I 4H CONS FANTSU 1 31-2N • ) • 

40H NUMBER- OF MATERIAL CONSTANTS PtR SET 
16M( NPAR(lT)». • *.IS) 


END 


pv.c.: 

or POOR QUALITY 


A3-8«^ 


FCHTRAN ivai REt-i'SE 


TRUSS 


date = 81229 


♦ CPTIONS IN EFFECT* NOTERW. 10 .E6C0IC .SOURCE »NOl.l ST».NODECK*LOAO #N04Aft 

♦ options in effect* name = TRUSS LINECNT = 60 

♦ STATISTICS* SOURCE STAfEMENTS* 211 .PROGRAM SIZE =- 8304 

♦statistics^ no DIAGNOSTICS GENERATED 


ORIGINAL PAGE IS 
OF POOR QUALITY 


AJ^90. 


a 


n 

• » 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MAI Oi- 

OATA act T£ 


date. = dia45_. 

Af level TMP aS uF 09/02/81 





*CJC* mOECK Wkl.TE 

•UNI* )£uk.lS^ N. WRITE, ft •write 

SUBRCuTINE *Ki-TE_4 0I.SPE»aiSP*.VEU» ACC, ID» NEa,NX)CE.,AKK) - 


P K C G R A M 

• TC REAO IN-ITI.AL. COnO-ITIUNS • 1 NTO CORE ANO 

PRINT THEM IIF IPRlC,EQ.n 

, TO PRIKT O ISPLACEMENTS ANO tlF 1 STAT,N£, 0 J 

velocities and accelerations . 

kkk*£u«i,. read. Initial conoitions frum. tapEo anu. print. 

KKK,E 0 , 2 , CKtftI.NG. TIME. IN-TEGRATION PRINT OISP/VEL/ACC - 
AT J^OOES -CUNTAINEO IN PRINT—OUT UUOCNS., 


IMPLICIT R£AL *8 (A<-M,L“I:). 


CUM MCN 
COMMON 
I 

CCMMCN 

COMMON 

I 

COMMCN- 

CQMMCN 

L 

COMMON 
COM MCN 
CCMMCN 
CuMMCN 
OIMENS-l 
01 MENS 1 


/SOL/ NOMNP, NUMEQ,NWK, NwM,Ai*C »NUM LST »M1 D£ST»jMAA£ST»J^ST.£, MA 
/VAR/ NG.»M00EX*IUP0T,KET£P, I.TEMAa,.IEQREF ,IT£,nPRI , 

IREF, ItOUIT, IPRl ,KPt_OTN^NPi.UTE 
/PORT/ I NPORT ,0NP0RT ,NPUtSV ,L4JNOUE •LUl ,LU2,LU3.«OOC, JVC, JAC. 
/EL/ INC, ICOUNT ••NPAR(20> ♦NUMEu,NtGL,NEGNU, IMASS-, 10AMP-, ISTAT 
,J<OOFOM ,KC IN, IE 10 , 1 MASSN , I OAMPN 
/PRCCN/ I CAT «R,.1PR IC,NP8,-I JC, IV C , lAC, IPC., IPNUOEI S^I SX 
/CONST/ OT ,OTA« A0,wAl ,A2»A3» AA,AE • Ab , AT, A8, A9 , AIO* ALL 

• A IE * A 13 , A LA » A La , A L 6 , A L7 ,.AL 8 , A 1 9 , A20.> 1 OPE 

/FOR CEO/ FIPI lOO)^F2Pi iOO-) ,FftU OO) 

/ELS TP/ TLME,I0.THF 
/PLCTE/ Ma,NR(.lOOL»NSt 100) 

/MOFROM/ ID0F(6) 

CN OrSPEINEQ) ,DISP(NEQ),V£i.(N£aJ , ACCI NEU ) , tO( NOOF , I ) 

ON 0(6) 


to 

6V 

26 

30 


C 

C 


c 

c 

c 


IF (KSTcP.NE*0) go to 59 
uo to lPsL.*Ma 
FIPUP>*C. 

F2P{rP) = 0.. 

FR( LP-) -O, 

00 25 IPaliMe 

WRITE (.20,-20) KST£P,TlME,Flfi4 IP) ,F2PL IP) ,FRtlP); 

FORMAT (.I10,4O13*6) 

READ 10 array INfO CORE 

REWIND e 

REAO(8) ((.10( UJ).IaL,NOOF) ,Jal ,NOMnP| 

IF (ANK.GT • LL GO TO SO 

READ INITIAL CJNOITICNS XNtti CORE 

READ (8) OISP 


I I 

4$ 


. ♦ 

• 4 


t 


f ‘ 



ii 


r oo 
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Lf' ( 1ST At • EU 40 

IF C lEFfc *£0 »J-)- TL 20 
READ (8> 

h6AL> 18 > ACC- 

Gu fC 40 

20 READ 48) OISPE 

IF tM008X*£e»ii) 4*U TC 40 

ISV = ( IVC ♦ JVC ^ 1-)V| 
lSA35(iAC ♦ JAC 

IF 4 1S.V*E0.0) HEAD- (d) 

IF ( ISV*NE«0) READ 16)- VEL 

IF . ( ISA.IVE ►C) read (8) ACC 

<♦0 IF ( IFR1C-.£C,0) return 
* ftlTE t.E»2l00) 

PRINT displacements 


date = ul-2AJi. 


eo 

lao 


IsO 


IF U4KK*EQ»1) CO TO 
IF ( IDC.EU..0 ) 00 TO 

eo 4 R 4 TE ( o 1 200 C > 

iC=IC ♦ 5 
DC ISO I-e*TlNPB 
node 1"= I P’NQUtC i (3 > ^ 

IF (NODE U EG ^0) GO TO 

node 2* IPNODE42*l&) 

nod lNCs»IPNOCE(3»ld) 

LF <kk.k.-EQ«1) 

IF (NKK.sEQ. 1) NOOE2=NyMNP 
IF 4KKK.EU«1) NODINC=l 

DO 100 I l=NCUEl »NOOE2 tNOD INC 

IF MCtLT.Ec) 00 TO 105 
WRITE ( o»204£) 

1C=4 

ICS DO I 10 I = l t6 
1 10 04 I )=0. 

IE=0 

DO 123- I»l*NDOF 
KN-s LOl I • 11 ) 

IF^UEtcl.b) OU TO 117 
write 4j6.3000) 

Lf^ ( lOPE »NE »-3 ^ 

IF (nk»NE«0) D4 1L)f01.SP£4J<X ) 

I20 CUNtlNUg 

IP }i?'!EitNMi?).OR*n.ta.NS( IX)) 
1000 CONTINUE 
sCCO FORMAT. 4 1 1 0.*2U 13 »^) 

ICO WR4TE(e.201C) 1!»0 


TO 120 


WR4TE4 20*5000l 
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omcmw. rna£ « 

OF POOR- QUALITY . 


mdltZ- 


daT£ = aid^b 


130 

IAOl 


201 


20 s 
2 0 <: 


.. (AKK.eU*!) 

If (i.c*at43a} 


If 


207 

^10 


2 LS. 


21.7 

220 


I 001 

4i.C.O- 


2t:0 


liO TO IdO. 

GQ TO 150 

i'ca ic+ 1 

»«Rite( 6-t2oac.) 
continue ^ 

AP ( ISTAT»CC.*0) hETURN 

RHiNT velocities 

W (knK.EQ*!. .-ANO. IORE.NE.SJ 
IF t IVG*£GI«0> CO TO 2d0 

IF "* O DC ».NE • 0 ) « R 1 T E t o » 2 05 0 ) 

IF (IG«G£*54) go to 205 
WBlTEtto-f 2-02-0 1 
GO TO Eoe 
»RITE(6.-2022). 

I C® A 

DO 2S0 IB®1.*NFB 

NODE l» IFNOOE t L» IJIT 

IF (NODElrECtO)- GO TO E50 
NOOE2* 1P-NOOL12* IB)- 

NOO-INC® ipnocei s » 1 o ) 

IF (K.kK *SG . l-l- NODE I- I 
IF JkKK.EQ.U NOOE2®NUMNF 
IF (NNK»£Q«1) NOOlNCsX 

DO 200 I I*NCD£l ♦NOOE2»NOt>lNC 

if"*! IcttT.Bc) GO TO 207 
»M?lTE(6#2022) 

LCsA 

DO 210 I® 1*0 

0( I )=0 * 

DO 220 I * NOOF 
KtCslOl 1*4.1 ) 

lF*(lLtLE.6> Gu TO 217 
WRITE (6*30001. 

STOP •►*>**. i 

IF ( lOOF ( IL ) *£0* 1 1 GO TO 215 
IF Uk.n£.0) D-UL)=VEL(KK1 

?F ( IliEO^Hl 1X4 .OR* 1 1 *£G *NS( lx) ) 

wSYtecbuo-io) lUO 

IF (KKK.EQ.D GO TO 2^0 
IF ( IC»GE»B5) GO TO. 250 
ICalC+l- 
WR1TC(6*20SO) 

continue. 

PRINT ACCELERATIONS 


GO TO 201 


wrIT£( 2O.50CO1 1 


2E0 IF tKKK*EO*.l *AN0* 10P£*NE*3) GO TO 

IF liAC.EQ^O) RETURN 


29 0 


ld/23/Ol 


1 ,D( 21 *0(01 




-~nv 
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OF POOR quality 




JATt_ = Biii 4 s ici^j-iyoi. 


c 


<. 0 


•3 0 J 


c iox:*£Q»a .ANOft 

l-ca I C f 6 

l|: ( IQ *G£i 354 ) QU to 

<*ft.I.T.E.(. 6 *^a 9 C-)- 
#ftITe(b* 2 ^ 30 J . 

GO to ioe 
*K 1 .TE( 6 » 20 J 2 ) 

1 CS 4 - 


iVLC.ea-.o) Gu tu 

30si-. 


GO rc ao-e 
JOs ic*ic ♦ s 

.»R I t 6 (6*20.2 0 )■• 

206 UO 360 I.6al.,Nf>t2 

NOUC la I PNua^ ( l.*.I a I 
IP (MJDei.*EO.*0) GO TO 3G0 
NtUU62a LPNOuei.2* lt») 

NOD INCa rPNOCt C-3.12U 

IP (KNA»Ea*l) NUOElal 
LP ttvKK *eu «l. ) . NOOeSaNUMNP 
IF ( KKK...EO.. 1 > NOOINCai 


30-6 


uO 300 I i = ^'CUEl »NOOE 2 »NUUINC 
I Ca * I 

IP (IC»LTfrS6) 60 to 207 

»K I tt { 6 * 203 *: ) 

lCa 4 - 

30 ? DU 310 I a 1,0 - 
310 0 ( 1 )aO. 
li.= 0 

DO 320 I= 1 ,N 0 UF 
NKa I 0 ( I ,il ) 

316 i(,slL ♦ I 

JF (1U-,LE,6) go to 317 
WHITE (O.3000) 

STOP 

3 1-7 IF t IDuF (. IL ) ,EU. I ) GU TU 31 S 
330 IF (K^*^E..O) D( U. )a ACC( (SK >^— 

DO 100-2 lXsI»Mu 

I 002 CGN-T IX)*UK ^4 1 ,EU.NS( IX) ) *PITE( 2 C, 600 .a)..I I mX( 2 ) ,J( 3 ) 

3 C 0 WHI TE (6 «20 10 ) 11*0 

IF (-XKK»^O.U REtURN- 
IP ( L&,gE«66)- go. To 350 

IC= ICF 1 
*RlTtt 6*-20 5 aj 
350 CUNTlNUt 

RETURN 


2 0 00- FOKMAT (/2 7P lOISPUA-CUrttMTS // 7H NUDE 1 2Jt 

lA+it->DlSPi»ACLMtNT. 4X 1 4H2-*«DlSPUAGtMtNt 

^ V.. £ L G C I t i E S // 7-H NUDfe 1.6X I OrtX«Vl;LOC l TT 


lax I OH-T* vELUC it y 6 X I OH 2— V ECU c tty 


/). 


UiX-lOHY-VtULclTT 6A 1 JHZ-VfeUUCt TV 3X 1 OH X-RU TAT I UN aX 


// 7 h NuDt lOX I OHX*VtL(,C I T > 
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DATE^-S- Ol^^S:. 


18/23/01 


ZO. 


jJj5KY«*«CT-ATIC,N 8X lO.HZ*MQt AT ^ c //• ?H NOUt i2X- 

0 PLKMAt (V2 )h a C C t u. fc 4 / 

il 4XX*ACCEL.^RAI . onvIftatA T 1 3X I 0rt2<*ROTAT _ /I 

^MX lOKX-*«OT AtlUH oX lOHV-RUlx » 1 n N S- / / 7fi NJO£- 12X- 


I PUKM-Al. ^ X iArt^-U i ^Pi-ACeM£NT 

ax^xoMv^^^ ax. iuH 2 ^uTAT..i.bN. /i... 


2bX tOHX-RtSt’ATION yy./l 

J ^ S«M AT S ^ IK DeSrEE^O-I: FRitUOK. CAECULAT lOKS^ /-i 

aOOO^HUKMAT. (/.//48H j;|Ji{‘=;^|?|g^&.R£L . i ./I A) 
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APPENDIX 4-: TWO-DI WENSIONAL PLOT CODE 

Duriri^ the solution phase* the main program •‘ADINA'- soLjtes 
for the responses of the bearing structural protilem i ncrementaTly 
■in time. These responses, namely the displacements, vel oci ti es 
accelerations, and bearing forces, are stored on aj) out-of-cor& 
tape for future plotting purposes. The subroutine "WRITE" of 
"ADINA" has been modified to store on a tape the re-STioases of 
the rotors and stators of squeeze-film dampers of either a-single. 

bearing or mul ti -beari ng problems. 

The code listed below reads and plots the rotor and stator . 
displacement., velocity, and/or acceleration trajectories of any- 
squeeze-film damper. For arty desired plot, separate graphs for 
either the stator or the rotor responses can be obtained. For 
the displacement, the difference between the rotor and stator 
displacements are plotted to show the rotor orbi t rel atl ve to the 
stator. For the bearing fones. both the actual force and the 
filtered force plots can be obtained. A linear filtering, by 
averaging the forces^ has been used here. However, other methods 

of filtering can be employed by the-user. 

To' help increase the diversity and capabilities of the 
code_d1fferent control flags or parameters have bedn introduced 
to give the user the opportunity to turn on or shut off any 

graph. For example, KPD is a flag that indicatds displacement 

plotting mode. A value of "1" for KPD will request the code to 
plot di spl acejuent^ .of both,.t.he..rpl9L„®r.- 
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The following control parame4^ets mu-sX-^je. inp^i.t by the user*: 

KPD: Control parameter indicating plotting mo^e.;. 

EQ.lr plot rotor and stator displaGement tra-lectori.e.s 
EQ.O: plots are not required. 

KPV: Cojxtrol parameter indicating, velocity ptotting modew 

EQ.l: plot rotor and stator velocity traifttorie^^ 

EQ...O*^ plots ar e ...not required 

KPA: Control parameter indicating: acceleration plotting moxle4 • 
EQ.l: plot rotoj" and stator acceleration traj.ectorie^. 

EQ.O: plots are not required.. 


I 

4 


1 








//CASENl jaa XXXXX«*352a ZEIO • .MSGL 

♦^♦<.j 08J»AR4. SJaesYE5L*FORMS=lP*»B 

//SVStS/°^%» ♦ GENErtATEU -SJAteMeNf 

//' exec GaFQ«r»PLOT**adSl2E*900K eY*»cacKiT 

yycycfKj QQ ^ <^N&l^A-irEl> STAT £MEMt 

//praarooi oo ‘^^“'^ssR.PrtOBNi ^ots^a(QLOj.K£|p^ 

/ /SyStH^ 00 ♦ G£Ntf<AT£0 STATtMBNT 

/ 


• tMSGUEV£Ussi2 


\ 





omm\- 

OF POOR QUALITY 


CASQil FO«T - STEP WAS EXECUtEO - CONO CaOE OOOO 

yts»t / ItoS^ lilfitlati CPU 0>« M. 05 .35SSC s«a 

ItIp /M / Itop’ ltlif:i“i 'cPU SXIN Sl.«stc »«S 

JSb /cillsl' / ItoS’ CPU- 0 «M 5 ». 7 »S£C,SR 0 
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0RJGkW»'^5 V 

OF' POOR Qtii .UiT 


MAIN . :>A.1:E «--dl232 - 23/30/S2 

t> lM£N3IUN OXR(2aaO> »OrH-{20aO.)»l>XS( 2003 >*>V< SC2000 )« VXfi(20X)01*_ 

1 VY»C2000) ,VXS(.2O0O> .VYS-(20QO) »AXH (20001 .AYRC2000)-» 

2 AXSt2000) « AVS(2000> tXAftRAY IASOO) t-V A««-A1A( ♦ SO OuI^ NPl S( 

3 I NC ( 4 ) »L 1 NTYKK 4 ) » I NT E Q ( 4) .NR ( 10 0 i . NS 1 10 0 ) 

DIMENSION F U 2000) *F2( 2000> ,FR420lOi> I .TlMt20Oai 
DOU3i.£ PRECI SION. 0( 31 .F 1 PC 100) .F2P( 1 0 0 ) « F R Pi I 0 O) ..tlMc. 


* «»«*«*««« «««««««« *44 4>44>444Y^4M( 44 ♦44«4« 4Jufc444 <UfcjML»4.:44 444444 »4<J». 4 .44 4 4 4 4- 


* *' 

4 "TNIS CODE PLOTS THE ROTOR ANO -ST ATOR oO tSPL ACEMENT, V^LOCt XT. 4 

* AND /OS acceleration. TRAJECTOrttes OF S0UEE2-FILM OA.MPER* iT- A lSO 4 

4 plots the Trajectories of the oeasj no. forces, t.hese resjljs. 4 

4 *• 

4 are GENERA t£0. and- stored ON A TAPE SV THE MAl.N CODE •• AOiNA* * 4 

4 * 

4 DURING The solution, phase. • 

4 4 

« 444444444444 4 

* 4- 

4 444444444444 *' 

4 * 

4 NO.MENCLA.TURS ♦ 

4 *■ 

4 444444444444 4 

4- ♦ 

4 4 444 4444 4 444 4 

4 

4 KPO : CONTROL PARAMETER INDICATING O I S PLAC ENE.NT PlOTTI.NG MrOE'. 4 

4 EO. tl PLO-T-RuTOR and stator OISP. TRAJECTORIES * 

4 

4 EQ. OJ PLOTS ARE NOT REaUJUiEa 4 

4 * 

4 KPV i CONTROL PARA.METEH INDICATING- VELOCITY PLOTTING M03E1 4 

4 4 

4 EQ« ll.PLOT ROTOR AND St AT OR VEl. TRAJECTORIES 4 

4 * 

4 EO. o; plots are not REOUIhED 4 

4 4- 

4 KPA : control PARA.METER iNDLCAtING ACCELERAT-1 ON PLOT TtNG- MODE! A 

4 4 

4 £0. i; plot rotor and stator ACC. TRAJECTORIES 4 

4 4 ' 

4 EQ. o; plots are not. required 4 

4 4 

4 KPF : Control parameter indicaTing-forces Plotting modei. 4 

4. 4 

4 EO. i; PLOT TRAJECTOSieS OF OEAR ING FORCES * 

4 ^ * 

* EQ. 01 plots are Not REQUIRED 4 

4 DXR.VXR.AXR I ARRAYS ’4HERE The ROTOR HORIZONTAL DISPLACEMENT. 4 

4 * 


r^r.nn non non 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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MAIN JAte.a a 1232 23 / 30^32 

^ VeLOCITV.. AND AC CeLEr^At I QN C aHaaNeN.LS— AS£ 

♦ #■ 

* sroRgD respectively. ♦• 

♦ *- 

* OYR, VYR.^.,:^ ; A8RAYS-«H£rilE THE RaTOR VERTICAL 0I5PLACEREMT. ♦ 

« A- 

* VELOCITY.. jANO ACCELERAtaUH COMPONENTS ARE ♦ 

*■ •* 

* STORED RESPECTIVELY. ♦ • 

A 

* OXS.VXStAXS : ARRAYS WHERE . THE STaTUR HORIZONTAL OISPLACE' 4 ENT._ . * 

* 

* velocity. .AND ACCELERATI ON COMPONENTS ARE . ♦• 

A- •' 

* STORED respectively. *■' 

* «• 

* dys.vys»ay.s_:--arrays. where the stator vErt ical - displacement. * 

« • 

A velocity, and acceleration components are. ♦ 

* 

* - STORED respectively.. » 

* •- 

• F1.F2 : arrays where horizontal anj vertical searing for.ce. ♦ 

• • COMPONENTS ARE STORED •• 

¥ ♦ 

• FR : ARRAY- WHERE -THE RESULTANT OEARING PQRjCES ARE STORED. — ¥■ 

¥ ¥■ 

¥ ¥ 


¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥.¥^¥¥¥Jh.¥*-¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥*¥¥■¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥■¥¥¥¥¥■ 


<al 
XPO»l 
XPVa I 
KPA=0 
KPFsl 
SwsO .3 1 
MisZWK 
IR*23 
Ns 1099 

RAED ROTOR AND STATOR NODS NUMBE.RS 

READ I 5 • i I ( .( NR( I ) • NSU ) } * I «1 »K) 

DU 50A XKsl.K 

WRITE (6. SOS) NR(KK).NSiXK)- 

READ. BEARING FORCES InTO.. CORE 

DO SOD lai.N 
DO 9 1P*1.K 

READ (l«.o) KSTEP.TIMS ,FIP(IP) ,F2P( lPj.,PrtP-UP)- 
IP tKPF«NE.-l ) GO TO ^ 

•RUE (6.?) KStEP.TlME ,FIP< IP)-.H2Ptl PI-.FRPUP) - 

MOVE dear iNG Forces into arrays fl»F2. and fr for p-OTTI.ng ^or’jses 


uuu 


ORtdIPiAL PAGu 53 
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MAIN- 


>Ate » 


F l ( I ♦( I P-l JSt 

F2( I«'UP-l)*N)=p2PC IP) 

9 Ff<( IH 

REAO-50TQR AMO STATOR DISPLACEMENTS INta CJftE 
^ REAl^^f. 5 ^II.D( 2 j. 0 ^S| 

?F- t iLeolNfitL)) !>XR(I-KL-U*^N)^t 2 | 

\t DXSU+iL-U*N)»OU) 

•F ({i:Iq:nS( 1 :)> DyS(l^tL-U*N)= 0 ( 3 ) 

*ci • v^TiNue 
301 CON7JNUE 

READ ROTOR AtMO STATOR VEUDClTlES INTO CTRE 


giAl°fIR:5)^I.0(2^.0(.3)_ 

\t VjSu+(L-l)*N)»l>(2) 

IF ( 1 1 .Ea«NS(L) ) VYSC I ^ 

♦02 CONTINUE 
502 CONTINUE 

PEAO ROTJR AND STATOR ACCELERATIONS INTO CORE. 

S?A5°?lRU)^l.O<|)•^{3) 

♦ 03 L=l .R, ^ ^ 

t II .EQ.NR(L) ) 

(II .EQ^NR (L) ) 

( II .EU.NSIL) ) 

.. ( Ii*EQ<NS(L) ) 

continue 
continue 

CONTINUE 
CONT tNUE 

is *0 ! * < oSrT? ♦ ( 2-1 > i^\ • { 

Sr 1 TE ( O * U ) ( OY Rl IX 4 -- 1 ) *N > .1 “T+N) 

"„;ic lil <OXS( I«-(L—l )*N) ♦I»R»N> 

IhItI (o’. 13) tSYS( II-IL-D ^N) .lal.N) 

1r t a ♦! V «su 42^1 >• « .< .1 .n; 

J2UI S:ls) (yywi^iL-vi.NJ.i'i^J- 

JSiyi 1» ») vx3<i*(i.-i.y«N) 


♦ 03 
503 
500 
SOA 


00 

IF 

IF 

11 ^ 


AXR ( I ♦< L-l ) *>i > *0 12 ) 

AYR(I *(L*t) ♦N )=0( 3) 
AXSU + (L*1|*N)=D<2) 

A YS( 1 ■♦' ( L“i )• *N )-^( 3 L. 


507 


nr>o nno npn 




506- 

510 


550 

! 

i 

551 

561 

552 
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MAIN. 


OAtE s 51232 


KttltE ( 6.17) ( VYSUXL.-*! ) ♦!!() . I al-.M) 

-I^ (KI»A«.N£.U Oa TO 51.0 
WRITE (-6«^13) (AXRtl^tL— I )-6H) ♦I.al .Nl 
WRITE (6.14) tAYR(14-a.-U6N)..Ial .N) 

WRl.tE ( Cm 20.) <AXS( I ♦(LX )*N) .1 «l .JM) 

WRITE (6.21) (AYS(I>.(L«»1 >»N) *t»l «N) 

CONTINUE 
CAu. RLors 

CACU Pi-Ot (l»0i.l*.S.-3) 

DC 610 La-l.K 
nPTS( I )«N 
NPTS<2') aN 
1NC( l)al 
INC( 2) *4 
L1NTVP( 11*35 
LlNtVPl 2)=3S- 
INTEQC 11=4 
INTEa(2)*0 

l(L_( KPO.NE.ll GO- TO 22 

PLOT ROTOR displacement TRAJECTORIES 

DO 550 l=l.N 

XARRAY( 4)aDXR( I4CU-1)*N) 

YARRAY( I)*OYR( I.4(L->1)*N) 

IF (L.NE.H GALL PLOT ( 12*0 .6.0 .•3) ^ 

CALL GRAPM ( XARRA^f. ‘Y-DISP* .6 .T.S.f ARRAY. * 2-01 SP*>6. T.S. 

I ‘ROTOR displacement TRAJECTORI £S‘.Sl .0.5.7.75. 0. 14. I » 

1 NPTS.lNC.LiNfYP.INTEQ) 

PLOT STATOR DISPLACEMENT TRAJECTORIES 

DO 551 1*1. N 

XARRAY( UaOXS( I + tL-^ll^N) 

YARRAYl I )aOVS(|4(L-l)4N) 

CALL PLOT ( 12»0.0.0»*3) ^ ^ « 

CALL GRAPH ( XARRAY. *Y**Dl SP 6 .7 .5 . Y ARRAY . • 2— DI SP* . 6. 7-.S. 
1‘STAtOR DISPLACEMENT TrA JEGTOR 1 £S* . 32. 0 .5. 7.25 .0 . 14. I . 

2 NPTS.iNC.Ll N.TYR. 1 NTEQ ) 

plot ROTOR orbit RELATLLVE TO STATOR 
DO 561 taL.N 

XARR AY( II aOXR(.I4(L-l)*N-)’-OXS.( 1 XL«l)*NI 

YARRAY( I laDYR( !♦ (L.-1 ) ♦N1•0YS( I ♦( L«^l ) *NI 
DTH* S„ 14 1 593/90. 0 
DO 552 1 = 1. 120 

12s14N42 

XARRAY( I2)aeC*C0S( 0TM* ( I«U ) 

YARR AYl I2laSC6SlN(0TH*4l«l ) ) 

XARR AY( iai4N>2l»XARRAY (.NA3) 

VARRAYC iai4N42)aYARRAY(N^3) 

NPTS(2)*iai 
LlNTYPl I 1*0 
LlNTYP(2)*0 

GALL GRAP^i^} XARRAY? ‘Sui SP • . 6 .7 • 5 . Y ARRAY . • 2-Dt SP.* .6. 7. S« 
1 *ftOfOR 0RBIT».11 .O.S.7.75.0. 14 .2. 


f 

« * 
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OF FOOR-QUALlTy 


22 IF 


MAIN 

MPT S f 1 N^C *1.1 N tYP * I NTEO ) 
(KPV*Mt£«lI GO *0 2'* — 


DATS a 91232 


C 

c 

c 


PCOT ROTOR veLOCltY TRAJECTORIES 


580 


XARR A Y { 1 7 » V X ft < 1 > I C- J ^ 

VARRAYI UaVYRlI + (L»l)*^W 
NPT3t2»aN 

lintym 

CAU- FuOT ( 12*0, ,0.0 ,.,b#T.S,VARRAY,-»2^V£x^,*^6^^*®»' 
2. NPTS* INC ^LlNTYPf l HT5QI 


C 

c 

c 


PLOT 


STATOR VELQCI A JECT PRIES 


C 

c 

c 


?JrII?(iU; 2 sci^ 

S79 caLL^PLOT“u^ array •• 2-V£L. 

2 SpTS. TNC ,1-1 NTYP.1 NTEQ) 

23 IF (KPA.NE.U SO* TO 24 


600 


plot rotor acceueratiow trajectories 

XARRAYI iiUxR j )*M> 

YARRAYI I)aAYR( I + Il-i*l)*N# 

CALL PLOT O 2»0 » 0*0 ,“ 3 > , - » « v ARRAY .* 2 <^ACC •» 6 »T*. 5 * 

2 MR-TS, lNC»l-lNTYP,INTeai 


C 

c 

C 


plot STAT43R ACCELERAtlON. tftA JECT0R163 


C 

c 

c 


2 MPTS-* IMC.LlHTYP-jl NTEQ) 

24 tp ( RPF*NE.1 >- SO TO 610 

plot HORJ20NTAL component OF OfiARlKS FORCl 

00 60S I*I-*N .. 

XARR AY I U aT I M( J; * _ . 

605 J 0,0.0. '-3» . T a YARRAV.»ROTOR F0rtCE(H0Rl23'*TA. I*, 

CALL OPAPM *J^y|R*^5Jcl*TRA.iE<itoRies>,24,o.5,r*r5..a.i4. 

I fjAptlllNC.CtNTYP. iNtEO) 


nooo onno onn 
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r” 


OF POOR QUAkCrY 


MA144 


OATg a ai2J2 


PLOt VEPlTtCAi- COMPONENt OE_ BEARING FCJftCE 


&06 


00 60& Ial»N 

VARRAVl I )sF2( I4‘(t<iiU«N) 

CAUL plot ( 12 * 0 . 0 « 0 »m 3 > 

CALL QftAPM {XARRAV<*TtME»*4^T*5.yARItAY,*RaT0R F0RC£( V£R-T ICALJ* • 

1 ai..T*S*.»ROTOR FORCE TRA JECTORI ES* # 24 .0..S . 7. 7?. 0 • 14 , 

2 l*NRTS^4MC.LINTYP.lN.TeQ» 


PLOT FILTERED HORIZONTAL COMPONENT OF BEARONG F43RCEI 
( LINEAR F1LTER1NJG4 F( I )a(F( I >*FC I-M ) )/2" ) 


Sdl 


N lsN«>i 

OO 581 tal*Nl 

XARRAV( I )a(.TlM( I )^TLM( l4>U )/2.0 

YARRAY-d )a(FKl-»-(L*-l)*M) 4>Flj( !«■ ( L^i ) «N) ) / 2* 0 

NPT3( UsNl 

CALL PLOT ( 12.0«O«0l.-3) 

CALL GRAPH { XARRAY. *Y IME ' *4*7*.5. YARRAY * » ROTOR FORCE(H0R1.20NTAwJl» t 

1 23. 7.S, 'FILTERED FORCE TRAJECTORIES* . 27-.0 .5,J.-.ZS*jll^4. 

2 1 .NPTSdNCVLINTYP, INTEQ ) 


PLOT filtered vertical COMPONENT OF BEARING FORCE 
( LINEAR FILTERING ) - 


582 


DO 582 lal.Nl 

YARHAYC 1> = (F2( I^(L-1I *N»+F2( 1+14-<L-1 )4N) )V2iO 
CALL PLOT ( 12. 0« 0. 0 
CALL GRAPH t XARRAY. * TI ME • .4.7. 5. YARRAY ROTOR FORCE( VERT 1 CAD * 

1 23. 7»5. ‘FILTERED FORCE TRA jECTORlES • . 27 . 0 .3. 7^75. 0.34. 

2 1 .NPTS.INC.LINTYP.INTEOJ 

610 continue 

call Plot ( 12.0.0.0.V99) 

FORMAT (1615) 

( 110*2013.6) 

( 110.4D13.6) 

(S0X.1 10.4(2X.013.6) ) 


1 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

SOS 


format. 

FORMAT 

Format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

format 

format 


( ///SX. 
(7//SX* 
(///5X. 
(///5X. 
(/✓/SX^ 
(///5X* 
(/✓/SX*. 
(,///SX. 
(✓//SX. 
(///SX. 
(///SX. 
4///SX. 
( IHO/// 


HORl ZONTAL 

vertical 

HORl ZONTAL 
VERTICAL 
HORl ZONTAL 


STOP 

END 


ROTOR 01 SPLACEmENT • . // .6( 2X.E1 3. 5) ) 
ROTOR 01 SPLACEMENT • .// . 6 ( 2X.E13.5)-). 
STATR DISPLACEMENT • «//.8C2X«E13.5) ) 

ST ATR 01 S placement.*-. // .8 ( 2X« EU^S) ) . 

ROTOR V£LOClTYl.*././.d(2X.012.S>i. 

vertical rotor VSL.0C1TV: •-.//.8 (2X.D13.5).I 
M0R1Z0N.TAL STATOR VELOC ITYI • •// .84 2X. 013«S) ) 
vertical stator VELOCiTY: • .//.6C2X.D13..S) ) 
HORIZONTAL ROTOR ACCElERAT ION: >.//.B (2X,.0i3-.S) ) 
VERTICAL ROTOR ACCELERATION! *.//.8(2X«043«S)4 
HORIZONTAL STaTOR ACCELERAT ION! ••//»S(2X. 013.S) ).. 
VERTICAL STATOR ACGELERAT ION! * . //.d^EX.OJ 3«S) ) 

SX. *P R I N T 0 U T For R. 0 T. O R *.1S. 

► A-N O S T A T 0_a L,1S.///)— 
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KUt6L 


0AT£ -9.-Q 1232 


»O0ti.OWS. IN- eFPeCT* NOTeftM*-10*6&COilC*SO.OftCe.NaLlSr*M30S.CML.LOAa.NONAP. 

•OPriOMS. IN eiSFECT* NANS = NAlN- • eiicr - tT<A>i» 

♦ STATlAtlCS*- sourtce STATeweNTS = . 1 . 2 . 7 aBROGR am SIZE 1.75892 . 

♦STATISTICS* NO OIAONOSTICS GENEftATED 
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ftWENDIX 5: TUREE-DIWENSIONAL PLOTUNa COOE._ 

to plot th-,-e. a 1 ..Pstonol pUfore^^ a dofar.od- thaf^ 
aoElocted potUiont of dlsttnct polnts-aloog, th^sEa.ft at^ 
teooaace of ti^ mtervaU. - purpose, or sue. plots ,s to. 
reduce: cMputea rotor vibratlop ey.eflts {tran.sa.ept as we as 

rteaay-state. to an easlO, ulsualltea ser-ies.of .till Picture^ 

A sequence oi such picta»^es is then suitable to .coa-stru6 a 
cotton animation of reto.r.tytbsai1on phenomena. Tb.ts 
provl-aes ^etallea description of tile necessary Inputs to-tbe, ...._ 
post-processor proprams as well as describing tbe post-processor 

programs themselves. 

A5.1 un.t.Processor 1- JCL Requlrejnents 

There are three JCL requirements for the first of the two 
post-processor programs. The first ofthese three require- 
ments is the allocation of FORTRAN-Jogical unit 20 in the 
modified AOINA program to provide Input to the post-processor 
*• n-p- fh4«; D-ast-pnoc iS-sor- would bfi s^impli- 

program.. Execu-tvon Q..t this post pro^ . 

• * KEs y.E>Af4 bv this unit exi-StS on — 
fied if the d^ta that is to be read by tnis au. 

the disk data storage of the computer. If this data does 

e»4st on a. disk dataset, then the JCL necessaxy for unit 

,s that Which will alJ0W..th1s.unU the appropriate 

disk dataset. 

The- second JCL requ-ireraent of the first post-F f oces^r pro 
gram deals with the datasets that are created duxang the 
execution of this program that facilitate the plotting 


the orbit trajectory^ liurlftg. the execot1on^o£jEiJ4s-po§tppir^oC6SSar ™ 
progpam^the t1m6rdisptateineot data f-or- all tha- nfidat along -tbe~shait 
are read and then- thit data_ts_wr1tten- In a inanner .that-ai . dataset 1s...- 
created for each oode-aJong the shaft. .Each datas.6t_th.at.JS cheated — 
contains .only the tifle-dtsplaoeient- data for one_node. -The.units-. 
associated jwitb this manner of data, manipulation, begla with -FORTRAN 
logical unit Hand continue -through unit 11 pi us -the number, jaf .nodes, 
along the shaft. Each of these units, will- require, the dCL-tO-aSsl^n 
them to different disk datasets, that are-crjcated dur1ng.lhd program. . 

Per the above discussion ^ If there ace 4. nodes, present alongj^he 

shaft* then tb6.-JCL supplied will have to define FORTRAN, logical units 
11*. 12* 13, and 14., 

The third JCL requirement- of the. first post-processoc .program concerns - 
the dataset which contains the output from this segment of the plotting 
package. This output Is the coefficients of the interpolatory polyj- 
nomlal. This data Is output to a disk dataset_so that it~can Jje re- 
trieved by the-second post-processor program. The -FORTRAN logical- 
unit associated with this. output is unit . 21. Therefore ^Jthe- dCL_ to — 

create and save_a dataset that will be allocated to unit 21 must be 
provided. 

A5 . 2 Pos t- Processor 2 * ,101 .Requi rements 

The JCI cequi rements- for this post- processor have been alluded to in 

the previous section.- These are tWofold-and both deal witb..datasets 
that are created by the first post-processor program* 

First, beginning with FORTRAN logical unit 11 and asslgning-ohe unit 
for each node, the datasets that contain the orbit trajectory Informa- 


rwafPnJicrr 




W!« , UUJIU '.J^".!! -;r7mi^pp^ 
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tion inus4;-be allocatod Itt-PORTRAN-Jogical unit; ThU allocation 

prpceduj'e «iust-4je. sinniar taJdie allocations that were- 4 nade_ia 
executing the.fh^t post -processor — Thts-weans that the- dataset 
allocated to unit TJ_dur1ng execution of the first post-nroces$or- 

must be aJ located to unit U during the execution of-the second post- 
processor; 

The. second JCL requirement- of tiris-post-proc6ssoc-progranUs the 
allocation. of the dataset-^.created during the execution. af the^flrst- 
post-processor program) which contains the -output from the-iicst- 
post-processor. This dataset- must- be aJ-tocated to FORTRAN . logical 
unit 21 during the- execution of the second- post- process w-ptograuu 

A5 . 3 - •Jripujsjroffi Modi fled. API NA- Code 

The output from the modified ADINA program serves as inputto the 
first post-procossor program contains four, different types of 

records. Those records and the order in which tftey-should-appear with 
their formats are as-follows; 

(1) ..Number of nodes whicii-appear— along the shaft In a (2X, ITO) 
fonnat. 

^ static* undeformed position of-these nodes- In a 

(3{2X, E15.8) format. Note, these-nodes Should be ordered so 
that the node closest to the oHg1n_appears first and the node 
farthest away from the origlru along the-shaft a^is-appears-Tast-. 
(3) The period of- shaft revolution in seconds per cycle In a 
(2X, E15. 7) format. 

The node Id,, time, X, Y* a.sd Z displacement for each node at 
each time steu of integration in a (110, 4E13.&) format. 


( 4 ) 


A5-4 


The records deiine4 biL(T), { 2 ), and (3) wl.Tl app^r once.. However. 

the records defined by. .ltem-(4^ will appear for each- node_forjevery_ »> 

t-rme step, during the solution of the analysis. 

i 1 

ii 

AS. 4 - .User I nputs ^ 

i, 

A5.4A. Usec-Inputs to Post-Processor 1 

r? 

AS. 4A. 1 Card No- T 


This. card defines the times at which the deformed-shaft is to be 
plotted. 


1. 10 

11- 20 

21 SO 


ANGINT 

ANGFIN . 

ANGINC 



(3F10.0) 


ANGINT - Value of the initial revolution at which the deformed 
shaft is to be plotted 

ANGFIN - Value of the final revolution at. which the defimned 
shaft is to be plotted 

ANGINC - Value of the -revolution increment at which the deformed 

shaft is to be plotted. The time, of the i-^^ plot will 
be r 

TIME = ( ANGINT + (i-l)*ANGINC )*PERI0D 
Where; PERtdD = perio d of s h aft revolution. 

A5.4A.2 C ard No. 2 

This card defines the direction of the shaft axis. 


1 


I 



7 


T 


ORUaWAL S j 

ftp POOR QUALltV 
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UherG: I is aa_a1phafluifleric Y, or Z depGftdin§ upon the 

shaft ontentat-ion. .. _ 

Note: For XT, X2. X3' coo rdinate. -systems.; 

X = XI 

V = X2 

Z = X3 

A5 . 4B User Inputs to Fost-Frocesso-r 2 .. 

AS.4B-.1 Cardjg^ 


1. 5 

6 IF 


NSECT 

THETA 



(1 5, FI 0.0) 


Where: NSF C T T h e number . of sections into which the shaft 

will be divided for the plotting, of its deformed 
shape. A high, value for this number will, cause 
a large CPU time for the p4ottiiig procedure. 
However,, a low value for. this number will cause 
the ploi to be choppy in appearante. 

THETA - The angle at which the shaft axis. 'wiilJbe _ 
inclined from the horizontal. 


A5.4B.2 Card No.. 2. 

This-card reads- the plot control parameters. The control pacameters 
consist of 6 integers read* in a (15, 511) format.. The first integer 
controls the number of deformed shafts— that are drawn. on each plot. 
The second integer,.. read from the- sixth card column, controls the 
usage of the default plot window size-. If this parameter is input 


as a 2era o^-Waok, therv the fblot drawn .w.11.1. ftt ill an-dleven Iniih..- 
squaire. If this parameter 1.S .IttfiLUt as -a one, thea_the. p.loit_ s-l^e- 
will be read_from Input, card, ftumber 1. ,The_±hlrd contra! inteaer,. 
read. from, the seventh, card. co!AimD.,_cQQt»)U the maximum- .s-lte-oi' the 
orbit. trajectory. . If this, parameter.- is_inpijt as.a Jtero ar blank.,. 
then_the jnaximuffl orbit trajectory w1!! be scaled_to .one .and one-ha!f — 
inches on the plot . If this_p.arameter is input as a-ona,_then the— . 

plot size of Jthe.maximum orJait trajectory jii-V be read from_input 

card number 4. The fourth cdatco! integer, read-from. the jeighjUV;, card- 
coTumn, controls the appearance- jbf the node_names.on the_p!ot.. If 

this parameter is input as a-zero or a. blank,, then the- node .nanes — 

will appear on the plot. If this parameter is input.with Ji. yalueL.af 
one, then the node names do not appear. The fifth- contra! parameter, 
read from the.ninth- card column,, controls the appearance of the Tine 

connecting_a node'‘s static,.. undeformed , position with its defov-ined. 

position. If this parameter is input as zero or blank., then:..this 
line app^rs... If thi s parameter is. input as a one, Jahen this -Tine 
does, not appear on the plot. The-final contra! parameter,, read- 
from- card column number ten, contcals the time range over which the . 
orbit- trajectory is plotted^ If this parameter is input as. zero o r:., 
blank, then the entire orbit trajectory is- plotted. If-this parameter 
is input- as a one, then the time-range overjwhich the o.rbit-is_p!otted. 
is defined by the data appearing on card number. 5. — 


vr 


ORIGINAL ft' 

OF POOR QUALITY 


AB^r. 


Summary r 

Paraineteit- 


-Xontrols— 


1 

fiumber of shafts .per pi-cture 

2 

Plot -size — 

3 

Orbi-LJtraiectpry sizfi — 

4 

Node- -natJie-appea ranee - 

5 

S-tatic-to-Deformeil liDe._appearance 

6 

Orbit trajectory time- range 

iB.3 Card No 


1 TQ 


WINDOW- 

j 

(FI 0.0) 


Window - The siie of the shaft appearing on the p.lot. 


A5.4B,4 Car-d No. 4 

This card is used only if the third control parameter on card-ruirober 
2 is non-zero. 


1 10 


DISPSZ 



(m.o) 


DISP-SZ - The size-jof the maxinuinLDrJxtt_traj6ct-ory. 


A6.4B.5 Cat^No. 5 


This card is used only if the sixth control parameter on card number 
2 is nort-zero. 


1 10 

11 20 


PERMIN 

PERMAX 



(2F10.0) 










AS-S 


PERM IM .. r Xh e minimum period af which the orbit trajectory- 

Is to-.be plotted. 

PERMAX - The maximum peridd: at, which the orbit trajectory 
is to be plotted. — 

Note: TmiN » PERlOD*RERMlN 

UMAX = PERIOD*PERMAX 



■f 



AS-TO 


c.,... , fa 

OE-POOH QUALIFY 


Ulb-t- JT 1 L .1 tY 


//NASAPW JUB* 0,4 I d^tNASA#^CUASS— a » 


CA 

c* 

c.* 

C 

c^ 

c* 

c^ 

ci 

c* 

CA- 

CA- 


P UK post • This 


A' 
A’ 
A^ 
A 

^RCJiftAM.tS Tw£S£ • 


TiTL£ : CCMIiUTeft PLUX.T1.NG ijl’ nfiFul^^ 

rCTUR V-lBKAtlUH TIME VAK-Y LNG .iSeFLECT lUJiU» - 


NUTt 


rj:s^ri'isiSr. , 

FCl-YNCMiAL TMAX «-lLL OS ^ 4 .- 

£A.LH CF The SdLSCTEil TIME INTERVALS*- • 

PCR furxfek oiscusslOK 

pi_eAs»fc s£e The report, relating tu thc.se 

pasT>PRCCESSCH PRCrGR.AMS» 


OtHcNStON. lUSOJ.. TtMEUOOO) 


JlHcNSlUN. tAwcvivwv# 

COMMON/ NLl«dER/NLRPLTt p. TyiMiiOOO) 

CuMMON/PLTcNt/ IPlGT TIMlNCt .1 .L?' LV.M,y.f. 


DATA 


[X 

IHX 


. lY 
, IHY 


..12 

. IF2 


i tNlTlALl 2 £ ThC- PLOT CONTROL COUNTER 
^ I PLO T~l 

t uoT«N IHt I«CR«AtlC.i. fROM iRt OAIA S£T .TrAI .AS CRtAIiA OUR 

C-. the muina Run... 


ING 


CAUI BOAOlNtPER ICO) 


C SHAPE OF THE SHAF T IS Tu . OE VlE-EO*. 

^ R.EAO( 5 . 1 ) ANGINT-.ANUFIN ..A MG -lfetC 

L-FORMATtJTF 10.01 
N.O»iPLT *0 

angle»an 6 inx 

lF<ANul-Nl^ XtX—S 

- ‘SiSSn ANGINC, IS. EpHER iertO OR.NEOAXIV^ 

. iaUR-Rt THUS LS A- FATAL EHRUk.i l - - 

Stop 

i continue . ^ 

ANuUE= angle AANsf I NC 

NORPLTsNEKPlT.fi , 

LF ( ANUUE .LT. 

IFtNORPLt .LE. • I COO luO TO 5 

4 -XoRMAn NORPLJ £*CEE 0 S- itS MAA 1 M.UM AU.OsAoL£ VAuUE. 


E>Mi . — 


.1 


«* 




ornn r>pr>n noo r.pn or>r. pnon none r.no 








AS=li 


OfUGihlAl »••/...: •: 
01?’ Poor QUiUji 


SOftRY R AT AU. ERROR**) 


L I.S.T . .JJT li. 1 rv 

♦ ♦ ♦ /. 

♦ . • 

STQP- 

s continue 

RLTT IM{a.)«AN<iJNTJW^RIX)0 - 

T I MJ WCa^N G I SC*Pe..(i 100 
oa 6. IsS2 ..NaRPU.T 

R4-TT1m( l.)»^1.TTJiM( 1-U*XIM1NC 

6- CONTINUE 

UOLENTlFy..-.BY_USER_LNPUT. THE SHART DIRECTION. 

read (.5*. 1041 C- 
10 FORMAT! A U 
ISMAFirs-a 

IF'UO .EQ*. 1X)I-SHAFT«-1. 

IFUD .£u* -lYllSi'AFTas^ 

LFdO .EC, IZUSHAFT^J. 

IF! 1 shaft *N£.. 0)GO TO. 30 
MRlTEId.20) 10 

30 FORMAT! *1 UNKNOWN 10 INPUX* 10 * *»AI)l. 

STOP 30 
30 CONT4NUE- 

SUQROUT INE. TRAJ KiILL SEIjUUP THE- DaTaSETS FOR Ih£ TRAJECTORY 
PUJTT 1 NG. 

CALL. TRAJ41I, AMAX^. 1 SHAFT) 

»KITE OUT THE ACINA INFORMATION THAT WILL a£ REQUIRED IN. THE PLOTTING 
R OU TINE* 

CALL »TA01N!14* 1 SHAFT.- AMAX* PERlOO)- 
DO The following for each PL0TT1NG_R.1ND0w. 

OU 50 I=1«nERPLT. 

READ THE AOlNA .DISPLACEMENTS- FOR— This TIME WINDOW.*. 

CALL ROOLSPU-IIME* T 1ME-! I U-_ 

AT This point 1F.,1T.1ME i.S equal ze r o* then we HAYE no data to— pcot* 

IFIITIHE *E0* 0)GC.T0.4^ 

write The. TIME CF THIS WINDOW TC fJiE STORAGE. DATA- SET FOR RETRiEVAL 
DURING— THE- EXECUT ION OF THE PLOTTtnG ROUTINE* 

WRITE! 31 , 40 ) T I ME! 14 

WRITE! t»«40.)tlMe! 1) 

40 FuRMAt-!3X»El3.E) 

COMPUTE AND- OUTPUT THE COEFF i G lENT’S OF A FORwARd-OIFFEBENCE— N£JUTON»S 
iNtbRPOLATCRY POLYNOMIAL FOR tH4:S-3 1 ME WINDOW* 

CALL- COMOlF iiSHAFTl - 
49 -CUNT INUe - 


i 


^ 1 


\ ' 


T ] 


onn oon 




i'. 

Oi' kv 



LIST UTU.ITY 


C 

c. 

c 


c 

c 

c 

c. 

c 

c 


so. CQNtlNUC 

HOP£rULLY« .ALL C0 n£« 

STOP 

END 

SUaROUt 1-N£ -COMOI F4.4SHAFT ) 

THIS SUBROUTINE COMPUTES- AND OUTPUTS- THE C0£FP LCIENTS- OP^ANEwTON^^^ 
POR«ARO-OlPP£REN<iC INTERPCLAT-CAY POLYNOMIAL*- T+iesE COtPFlCIENTS 
ARE READ ANO USEO BY THE PlOTT INC- ROUTINE. !«£«! 

CUEEPtClENTS GENERATEO POR~fiACH TIME MINOQ* TO BE PLOTTED* 

C0MM0N/D1SPLA/0ISP(3-.S0V . 

COMMON/nODE >fLO0(3*S0) 

COMMON/ NUFaER/NB-HPLT *NUMNP 

real LCC 

DIMENSION OlPt-Sa.SC). 

DO 70 IOlfl-1.3 

IP(I01R .eu. ISMAFTIGO TO -EO 

N-aNUMNP-l. 

D?F( 1. lT=(01SPt tOIR. I+l)-OlSPCtOlR. I) )/<LOC( f^^FTJ 
^ — LOCI I • ISHAFTT I 

to CONTINUE 

DO 30 1-^2. N 
K=NUMNP«I. 

DO 20 L- I .K 

01 F I *i . L ) « ( 0 IF < I- 1 . L ♦ I J -o 1 F U- 1 , L ) J V ( LOC I M , 1 SHAFT > 

« — LOC(L.ISMAFT)) 

20 CONitNUE. 

30 CONTINUE 

wRITEUt-.AO JIOIR 
>»*RI.TE(.P. 40J lOIH 

40 FORMAT! 2A* 13) ... 

4RLTEL21 ,S0)DlSP(t0lR.3J*<0IF(.K.l) .K^I.N) 

«.RlT£(o..50)0ISP( IOIR.-1 L*(0lFtK. I ). K*l , N) 

SO FORMAT! !.S!2X.&13*EI/-) ) 

eo continue 

70 CONTINUE 
RETURN 
EMO 

SUBROU-TINE. ROAOIMPERIOO).. - 
COMMON/ NODE /LCd! U*-SO I 
COMMON/ NOMBER/NBFPLT.NUMNP 
REAL LOC 

READ THE NUMBER. Cfz NODES 

READ!20».10)NUMNP 
wRI.tE!6*lO)NUMNP 
1 0 F ORM AT ! 2X..I.I OJ 

HEAD The X. V.AND 2 LOCATIONS OF THE NODES 


DO 30 Isl.NUMNP 
R E AD 120 • 2 Oi tLOCi I • Ki 1 • 3 ) 


err 


f". HIV' 




II 'wm.ipiiP ii».im«iiiMpi«iiii^^n*fipiii9P||||piiiRipKffyvff 


n 

Oh I »* )iU II Y 


L I lit— ur iu IV 


(LOC( I. «».) 

.10 I aKMAi I ) 

JJ CUMriNUt; 

c 

C- HEAU rut HtJEl-CO uh SHAFT hlEVaCUt I UN , 


40 


10 
1 1 


W t AO < JO * 4 0 ) P£ w 1 UU. 

H*i 1 I E( l> » AO ) MLh-l UU — 
f OU.4 At t iTX- > fc, lli* :/ i. 

Kt rOHN- ■ 
liNL) 

SUtiHUUl lNK hOOiSPtn IM-E»TlMe» 

CUMHUN/U I SPLA/Ol-SHC J*S0i 
CUM'MUI4/NU^Hl.»4/Nai>i'*»kt»-NUMNP 

i.JHMON/'MATCNr/lPLUT, I IM1NC» PUtTi Mt lOOOi 
Ot MENU ION 1 U‘40) 

I V IME»0 
Wl)N4 INUU 

KCAO t JO » 10 ♦tNU»40H 14 i I *T lMli» 4 01 SPl N* 1 ) I 
OU 11 Ul-“ I t-'LOf »NUW*LT 

IFtAUUl PL-l T .EC,. TlWlNCluO' tO a 

U JNT INUU 
OU I I A-J.NUMNP 
KUAUC JO , lOI-IUUM 
I- ONM-AI i 1 I C t 4U U«C > 

UUN-T INUL 
V.U TO 4 
V.ONT iNUt 
1 r IM-t - 1 
IPEuT-1PEUT»1 

DU JO l-J»NUMNP .V . . 

Kt.AD4J0 f 10M.LI I E* T 1 Mt . 4 O I SP 4K . I ) * K » 1 ♦ 

CONt INUt 
og -5 0 l-l.NUMNH 

4K11 u4o*.X0 I n 4 1 ) *T IME* 4D1SP4K. n *A^l * J> 
eUNt INUt. 
uU to oO 
CUNt INUU. 

PUPM At U* iiNU OF AOINA INFORMATION 

STOP 

tUNt INuE 
WfcTUWN 
l.NU 

liUUKOUTlNE THAJ4.U.^ AMAX. ISMAt T) 

UlJMMON/NUMUl.W/NOKPUf *NUMNP « 

U 1 Mi. Ni, lUN 1 I 4 SO ) .THAJUl SO I • 1 PAOA4 S0» 0) 

mEmIno jo 

HLAi> UNiANltO OAIA At — IHL OfcUlNNlNw OF tHfc f ILt*. 




JO 


00 

4 ^ 

SO 

bO 


N-^AD ( JO »1 M DUM 
I I UkMAI ( JX • 4 10 1 
DO 0 l»l.-NUMNP 
KkAU 4 JU » J >UUM 
J »■ OMMAI 4 JX .UUi.O)- 
0 LUNI I NUI. 

WUAD ( JO . J )DUM 




rro rr<or\ nrr-.r. 


'ipi I ! II "r 






A5-T4 


■ '■ ' I, I • ' 

Of pu^^u '■<: '* •' ' ■' ' 


L 1ST UXU. I TV 

A.MAX^^O.O 

s continue 

1£ AO (^0*1 0-» EN0^4^O) X IXI ) tTlME* ( tiiAJ-'A ( l.»K-) 

10 format< xio* Ati3.e> 

IFUSHAT^T- .-NE* lJ.(iQ. TO 11 
TRAjDtt-«a )=TftAOAt I »2T 
TRAJOtl ♦ aiasTRAJAta .JU. 

CO TO 1*V 

11 CON-TlNUt 

lf=^U SHAFT *N£. ^4.C0 TO 12 
TRAJ0A.1 . I J aTRAJAi i .-l ) 

T RA-JO( 1 • 2 ) * T RA J A UUJ.) 

GQ TO IV 

12 CONTINUE 

TRAJOt t vl )sTRAJAtl *^.1 ) 

TRAOOtl .2>ataAJA( I »21 

1<J CONTINUE 

COMPUTE THE magnitude CF TmE- TKAJECTOR PATH FOR THIS O I S^aCXmEnI- 
UATAt 

riANGEa5URT(.TKAJDU*l)A*2^TRAJ0Cl*^)**E) 

CHECK This magnitude AgAINST the maximum and IF this is LAKuEfi 

SET THE .lAXlMUM ECUAC TO TH IS- MAGN 1 TUOh * 

I F ( R ANCrE • G T- • A M A X ) AMA Xa R ANGE 
20 CONTINUE 

00 30 1 = 1-.NUMNP 

Wk'i T E( LOUT • 10 1 1 1 ( IX*T1 ME« ( TRAJOI I»KJ»K=1»2) 

30 continue 
oO TO 5 
AO CONTINUE 

remind 20 

REAO UNaANT-EO DlATA At THE b£G INNING OF THE FILE* 

HEAO(20*l ) I CUM 
Of) 5 0 i.a 1 *NUMNF 
KEAOI20 ♦210CM- 
50 continue 

KE AD(20 *2 lOUM 
RETURN 

aOBRUUTlNE AtAOlNllI* ISMAFT* AMAX » PERI^DI 
COMMON/NCOt /E0C<3^50» 

COMMUN/NuMOER/NbRPET #NUMNP 
dimension IIE50) 

Awt TeV 2^ * CO INoMNF •NORPET*^ 1 SHAFT »PE"R lOO. 
wRitEIb* 10 >NUMNF.NBRPET*I shaft *PER100 
to FOWMAt < J(2X *1 10) 

AK1TE12 I *-l 1 H I 4< 1 ) *1*1 ♦NUMNP) 

11 FORMAT! ( ACt IXi 1.A4/I ) 

AMI TE( 21 . I'jTAMA* 

ARITOTo, IE) AMAX 










OUlCiiK..‘*i- i'* ‘- -- 

OF POOR Y 




A5-T5 


cl ST utility. 


lb 

20 


J«Kllif^2al(u8c( i*.is*HAPt y . 1 ^ i .numnpi 
«fllTe<6^».2.0 J (L€C( t» ISHAfT) t I=l »NUMNP> 
t^nuMATt ( 5(2X*.£13 *t^)/n 


R£tURN. 

END 


c.rr. rr.r. r.nrrorrn 


OF' POOH C 




li'i 


AS46 


« «' «««»»**« ««.* «««««« ««.«» ««. k« »«««»»«.«* «««.«&.* 

* 


T ITLE , 


ccMifutej^- PcaTTiN-a c<* trassie.nt anu steAoy.»srAtE 

ROtQR Vi-ttRATtOJS* .tlME VARYING AUALXSIS- 


******** ****** 

C* 

C* 

c* 
c* 
c* 

c* 

c * 

»-♦ 
c*- 
c» 
c* 
c* 
c*.. 
c* 

c ****m***.***i*.**.*******j**************************** *************** 

COMMON/ COE<= /A^<2.t>0) . USCtSO) 

CQwMON/CNT^CU/ lCNTJ?L< 1.01 . 

CCMMQN/ORAAX ./X(.2« 101 ) 


UtSCRiP TLON.: Itil S P-fiOORAM IS- THe. SECOND Ot^ T m 0 PROG RAM& TrtAT 

Au>a* the USER- Ta view. The oEFORration oF— a. 

ROT’ A.T1NG SHAFT.- THIS PROGRAM CANNOr. ttE. 
executed ON-TIU. THE- FlRS-T ROUTINE. HAS SEEN RUN 
AND THE. OATaSETS- that IT CREATES AfeE ACCtSS-lOUE 

TO This program.. This program performs the. 

THE actual graphics ON ThE XAUCOmR- PUO tXE A. 


* 

* 

* 

* 

* 

* 



* 

*■ 

* 

* 

*****m 


COMMON/ NGM /NUMNP- • NBRPLT 

common/ SC ALEI/FACTRA ». FACTRB 

COMMON/TRIG /COSInE » S-INE 

COMMON/ TRJ.CNT/P£fi too » TIM IN .. 

OlMENS>tON lClK(2y * lltSO) » 

REAL UOC > „ 

DATA Pi/3.1 4lS92eS3&/.01SPS2/l .a/» W INOOW/b.O/ 
XMAX-D. 0 
XM1NSD.-0 


TIMAX 

AXl AC-(1.C1.>. 


• X-ttSOX 


RcAD the FULcCaING INFORMATION FROM THE OATASET CREATED BY. Th£ FIRST 
POST PRuCESSCW^^^^ _ yjs i^qaL- points ON THE SHAFT » 

2) NBRPLT ® NUMBER OF POSSIBLE PLOT TIMES*- 

3) 1 SHAFT a 10 OF THE SHAFT AXlAL COORDINATE-. 

4) PER ICO -a PERIOD OF SHAFT REVOLUTION. 

REAO(2l . 10 >NuMNP,NURPLT.ISMAFT*PER ICO 
10 FORMAT! 3(2X*I10) ♦EXB.rX... 

READ THE ID-'S OF THE SHAFT NODES. 

READ (21 *20) (I II I ).l=l*NUMNP» 

20 F0RMAT( t40( tX» lAI/l l 
DO SO (at.NUMNP 
XI ( I laFLCATl tlLl) ) 

JO CONTINUE 

READ THE- MAX I MUM- MAGNITUDE OF THE TRAJECTORy. 


READ (21 .AO) AMAA 
40 FORMATi 2X.£XE.tU 
C 


nnro onooccoponmor nnnnnooooooor.or^nro r>oo non 


ASJ7 


' : ■' ’ 

OEJtz:. 


• . k. t 

'■ r*:. i r 


CIST- oTiLlTV - 

C HEAD .tHE AXI AC... LdCAXlON CF..-tMe’NOOeS* 

ftfiAOiZl »E0) <CCC( l.».l=4 *JMUMMP4 . 

5»>. eOHMAtti.S (2X«Eld .64/> 1 

SEAKCH ThE . SHA<=X fUA ITS MAXIMUN AND MINIMUM COCATIUN. 
do. 6 a l.*-l .NCMNA 

IF(cDC(-IJ .i-T..- XMtNCXM tN*CCC( 0-— 
lF(cdC( 1.4 »qT.«. -AMAXJlXMAX=CCC( I) 
t>0 CONTINUE. 

.READ THE* NUMaEA .uF aE;CI10NS INtC Mb ICM. .THE . SHAFT IS TO oE DIVIDED. 


ta 


READ ( 5 . m I NSECT ..THETA 
FORMAT! 15.^10.0) 


READ The. vacuEs. of thE cobaRuc vector. 
The F0CC0W4NG ITSMSJ 
ICNTRL 


THE VACUES read.* XU- CONTftOC 


COMFONcNT 

I 


CONTROLS 

The NOMEER CF deformed shaf ts. , lM.At -are PCQIJTEO . I"N . 

Each minooik-.. ^ ^ ^ 

THE’ USEaCE OF- THE. DEFAULT RCOTTlNG H(.tNDOa S4lE.- L£ — 
THE VACUE REAa IS-2ERO.. ThEN -TME DEFAULT SIZE 
& INCHES IS USED*. IF TmE VALUE READ. IS ONE:*. 

Then. THIS •INOOJ( SIZE Must bE INRuT*. 

THE USEACE OF THE DEFAULT amFLIF ICRTION. b AC TOR.. 

IF THE VALUE READ IS ZERO* THEN THE AMFL I — 
FICAT ION FACTOR USED MILL PRODUCE A. MAXIMUM. 
TRAOECTCRr CRdlT OF 1.5- INCHES* IF THE VALUt 
READ IS ONE. THEN- ThE SIZE OF THE MAXIMUM 
THE ARPEARENCE of The. node NAMES , on. The. PL0 T._- 
IF THE VALUE. HEAD LS ZERO-*.. THEN. THE NAMES 
APPEAR. IF The value. read .is ONE THEN THE 
DO NOT APPEAR. ^ 

The appEarencs of the line, connect i;nc thcT static 

POSI-t LONS- OF. The;* NODES TO THEIR. DEFORMED . 
LOCATIONS.- IF- The. value READ IS ZERO.- THEN THIS 
«„INE. APPEARS. IF THE VALUE READ XS OBIE.—1HEN - 
THI S H.KE DOES -NOT APPE AR . „ . , * 

THE. time range- of THE TRAJECTOR-V ORBIT THAT IS 
OUTPUT IN EACH PlOTTINC. MINOOM.. IF THE VALUE 
READ- I S ZERO. THEN- ThE ENTIRE ORSl T IS D iSPLAVEO 
IN- EACH plotting. MLNOOM.- IF THE VALUE READ tS- 

ONE.. Then CNLT T fE range SP.ECXF1£D. at THE .i^SER 

iSPLOTtED. 


REAOtS.aOH ICNTRLi I JUmI. 101 
00 F0RMAT4.IS.5U l I . . 

MMlTe(o.SOM ICNTRLUX.J*! . 10) 
OS-F0RM’AT(4 ICNTRL-* *-vl 0 1 IJ * 2X)//yA) 


oeFalT mill use The values of The ccntkcl vector to determine. if"anv; 
additional INPU-TG must -oE" read and it mill THEN read THESE INPUTS* 


CALL .DEFALTIOLSPSZ*. MlNDGi) 

c 


r.n r>r>n r.rr> cm rrr r>nnr rnrr onr rr>o nroo- nr.n r«r 


A5-T8 

0R5a«NAr.. ' ' 

OF^POCR Q * 


1.1 ST CITICITY 

COM»>UtE The tNCfiEMENTVlL AXIAL DlStANCE. 

ODIST=< XMAX-XMINJ/FLilATCNSECTJi - 
CUMVEKT TMETA TC f*^AU4ANS FKCM DEGREES. 

TMETA=^TMEXA*»»l/uaO.. _ 

TC AVOID MULT IAUE CALLS TO t«E TJUC FUNCTICnS. CCMRU TE^ .THE S1N£ 

AND COSINE OE ThEXA. 

COSlNeaCCSCtHEIA) 

SlNE«31N(.tM£tAJ 

FTNO Tl:«£ MAXIMUM- XI RANGE. - 

XRNGEs'AaS(XMAX*CCSlNE«-XMIN*COSlN£J 

find the maximum .x2 range. - 

YKNGE£A8S4XMAXAS lNE-XMlN«SlNEi 

determine The maximum- range cf the PROELSM. 

IFiJCRNGE »G£. VRNGEIRANGEssXRNGE 
IFITRNGE ..GT.. XRNGlIRANGEsVRNGc - 

mith the maximum range Ano- the size of The . V lEWl NG- ainoom . compute 

THE MlNu-OW SCALING FACTOR. 

R-ACtRa=«iINCC*/RANG£. - 

MltH, The maximum magnitude or' the TRAjECTOftY, COMPUTE THE OLSPLACEMENT 
SLAL-iNi. Factor. 

F ACTRA=0 ISPSZ/AMAX 

initialize THE Plotter. 

CALL plots 

MOVE AND center THE CRtGIN OF THE PLOTTER 

CENT ERAO.. S* ( U »0-«TNOUtii }. 

CALL PLUT(0.0» CENTER*. —SL 

reset The NOMfeSK OF SECTIONS* 

Nsecr=NSECT*i 
AJstCNTRLil ) 

IFiUJ .EG. 

DO THE FOLLOAING FOR ALL-tHE POSSIBLE PLOT TIMES. 

DO LJO LLsl,i«URPLt 
00 lAO KKsI.JO 

READ The PLOT TIME* 






A5-19 


c... 

Ok b'lL«.l..i,*...Vj: — i.'.>i,iLi 


u4 ST— Jj-T i-U 1 TY 

^ ftfiAOUl * 5C» tlYJJ®l40)JrtMfe- 

^ oa t«e PQI-LOIONO fOR T»a uePLaCttO^ 

^ 00.9 0 l»L».2-. 

C-aSEAU tH^ OlftECTlON. 10. 

RtAO(21.BS)lOlRtl» 

as puRMAT^tax.. - • .^..j^cLATCRy PCLYNuaiAL 

^'RtAO tHE F-OR*ARC MtmJON IWT£RRCI-A1 ukt 


C 

c 

c 


c 

c 

c 


c 

c 

c 


REAOt2l..50) tA( I ♦NU>»NPI 

•iO CONtXlHUE 

NC- FOR EACH- LOCAT ION ACOK*a .tH£ . SHAFT . _ 

00 100 l=l,NS£CT 

Otr.R«.NE the AT.T.AU LCKATION- OF THTS. 80 iHT. 

CALL LOCATION. 

CA1.0 t)lSPlOTS.T* Al» X2.I.. 

StoHE-THEEE. CGOKDTHRtES IN THE -COORO IN ME 

AXLAUC U»UtST 
xU. I» = XI 
X( 2 , U*X 2 . 
too .OONT INUe - cprr 
00 1 10 IsiiRSECJ 

COMPUTE THE .SCACtD. CISPUACEMENTS. 

x-ci • I ^ 

X(2wl X ( 2-# 1 J A.Ctfi^ 

CQMPUt& tH£- SCAJlED cOCAJIUNSa 

AX 1 AUl i ) ® AX t AL C I 1 ACTfiO - 

PEACE EHE SCACEO OISPEACEMEnTS INTO fKE PROPER ECOEAC 
VLEiiNu PERSPECTUE. - 
CALC COORCt AXIACUT* X(2.UJ 

no. CON-TltiUE 

' OKA* The OMOEFORMfcO* STATIC SHAFT. 

; „.:r..r ... - - ■- 


i 

i 


non non non npo non nnno npn opo 


A&^O 


Pit 


LIST OTILtTV 

C 

CALL 0RAIk(J<1S£CTI 

COHn£CX THe_ONO££Cfi.M£D NODAL LX CATIONS ftITM Theift DfiFORMeO LOCATIONS. 

lt-( iCNTRLI&i .eXL. .OI-CAU L-INC 

OUTPOT TQ.THS PRINTER THE PLOT TIME JUST PLOTTED. 

W ftl TE f 6 .. I-1.S ).T I ME 

US PORMATI-*- „ PlCT._0RA»N FOR- T.IM£.-.s£_» .EIS.SJ ... 


IF_MOLTiPL£ ShAFTS Aft£ TO APPEAR ON THE SAME PICTURE. THEN THERE IS 
NO. NEED TO-REDRA. THE. REMAIMNC COMPONENTS EACH TIME. 

IE.CKK .NE.-U60 TO lEO 

PLOT OUT THE SHAFT NODAL TRAJECTORIES. 

CALL TRJPLT(II) 

WRITE OUT JTHE NAMES CF THE NODES. — 

IFIICNTRLIA.) .EC. 0) CALL- NAME ( CENTER. All 

PRINT OUT.J-HE- TIME. ASSOCIATED WITH T.HI.S PLOT. 

CALL SVMECLIS.O. l.O. 0«ES. 7HT1ME s , 0..^0^ Tl 
call NUM8ER(99y*« .RSy. * 0.25. TIME, 0.0 ._4J 

120 continue 


MOVE ThE-PLOJ origin FOR ThE NExT. MINOOw- IN TLME. 

CALL PLOTUT.O. 0.0. *3J 

130 continue 
140 continue 

hopefully, all done. 

CALL PLOt(20.0. 0.0. 9S91 

STOP 

END 

SUdROUTlNE CCORDIDIST-. XI. X2I 
COMMON/TRIG. /CCSInE. sine 
XT aXI. ♦ aiStACOSiNE — 

X2aX2 ♦ OlSt#SlNE 
RETURN. 

END 

SUbROUtlNE DEFALT 1 01SPS2. W INDCNj .. 

c©mmon/cnjrcl/Icntrl uo> 

COMMON/ TR JCKT/PERlOO-. TlMlN . ttMAX 
tF(iCNtRL(2> .EG. 0)00 TO 20 
R£AO<S.I.0.iAlN00w . 
to F0RMATCFia.Oi - 
20— CONTINUE 

IF'I tCNTRL-(3) .EO.-OICO tO 30 - 
READ(&»I0tD.lSPS2 . 

30 continue 


f 


' ( 




p • 


'! 


J 

§ f 


« 9 


♦ 

\ 

mi 


} 


c>r c*r^nnr^ 


A5T-21 


omGiNA’. Iy 

AP frooR ObnUlY 


Olp f»00R 


LIST" Ut-lLlTt 


50 


IF( iCNT'KUb) •tU«~ 0)00 TC 
R£AO4b* ‘»0 )PeRMIN«PeRMAX 
AO— F QKM AT ( 2F*10 *j0-) 

T iMlN»t»eS)»I.N*FfcR10O 
T IMAXsO'eRMAXAPEfi lOD 
00 TO 60. 

CONTINUE 
T IMl N=0 .0 
T IMAX*1 »£-*l-0 
CONTINUE 

t»KlTfc(o. 70 ) Ti.MLN.riMAX. 
FOH-MATl* TIMIN = ••-E15.*7/ 


50 


50 


70 


-T1MAX.S ’.EIS.T) 


return 

ENO 

SUoROUTINE DISP(0£ST» 
CCHMON/CCEF /A(2»50X 
CCMMON/NUM /NUMNP 
OIMEN510N-A1(2*SO) 
REAL LUL 


XI t X2) 

. LCC(i54)) 

. n&rplt 


Tm I 3 3UiJRQUT INE WILL- EVALUATE THE NEvT CN FORVAftO- IJhT ERPOL ATORY 

PU^YNoSlAL THAT RES IN THE APBROX I MAT lON-Oe. THE SHAFT. 

THE^ilSPLACEMENT'^lS^OdFINlo^SY^OETlRMINlNu THE tUO COMPONENTS OF THE 
5HAFT DISPLACEMENT. 


n=numnh«-i 
00 20 1 > I *2 
00 10 N= I .NUMNP 
AU I *K)-»A( I .X) 

10 continue 

20 CONTINUE 

00 AO 1-1 .2 
OU 30 K=l.«N— 
i, — NU MNP^~K 

AU r»L ) = A U 1 iL )> (015T-»L0C(L) ) AAK t »L*l )• 
30 CONTINUE 
40 CONTINUE 
Xl-AU 1.1) 

X2SAU2.1) 

return 

END 

SUuHOUtlNt CRA#tNSECT) 

CCMMUN/COEF /A(2.-b0) . LOCCSO)' 

CCMMON/ORAi*X /X(2«l0l) . 

CCMMON/NuM /NUMNP » NERPLT 
COMMON/SCALfcl/FACTRA • FACTRE 
REAL LwC 

00 15 1 .Si — 

XlsXtl.l) 

X 2sx ( 2 . 1 J“ I ) *0 .^015 
CALL plot (XI. X2. 3) 

OO 10 laC.NSECT 
XUXII. L) 

X2=X(2.1 )-(J«l)*0.015 
call PLUriXli X2.—2) 

10 CONTlNUt 




AS»22’ 


UlST UtU-lTY 


CONt.lNW£. 

i3^ 20 l ^ l.*NLMNii 

AXlAtaCOCli ) 

CAL.L. AXIAL. XL. . 

Xla-X l AC-Tft A 

A2=X2.*#= ALTL-A 
AXlALsAXlA4.*f^ACTK6 
CALL COUHC ( AX i AL »• Xi •• 


CAUU S YMb-CLU-W X2 . . 0 .1. . i X"® * _T i ’ ' 


CALl^ ;,VMeCl-LXl. Xfc. O.l. 
20 CLNJ’-INUt 
SctURlV- 
END 

SUdHOUt i.N^^LlNE 

CCHHCN/CCfc(= /A(.2.S>^J» «-0 
CUMMLN/ N-UK* /NUMXP ♦ No 
COHHbN/SCAUta/FACJRA , FA 
v,OMiMONX tRi-L /CQSINE . SI 
REAL LOC. 

00 10 la4..NU«NP 

Xl aUjiCX i ) ACCS lNEYF ACLKb 
XOacOCl I > AS lNfe.*F ACTRO 
CAUL RuO-t. i X I* Xa » A ) 

C ALU Ul-SP t L CL ( 1 ) . X I . Xfc ) 
XlaXlAF ACTKA 
X2=rx2 *«^ AC7>» A • 

POS*UOC( liAFACTRb 
CALL CuCfiC(-FOS. XI. X2.) 
CAUL Plot (XI. X2 . 2) 

IOl-CUNJ INUt 
REf UKN . 
g* NO 

i-UbROUtlNE NAMt.( CENTER. ) 
CoMMON/CCbF- /A(C.dO). LC 
CuMMLlH/NuM /NOMNP * Nt 

CaviHON/SCALtl/F’ACJ-RA. . f t 

CCHMON/tKlo-. /CCSiNE » S 
REAL LOC. . 

O LM£ ns I uN X 1 ( SO » 

OL LO Lal^XUMNP 
X l*LUCA I T •F-AC.tft-b ACoSlNE 
V2=LUC I I > ACTRAAs INE 
CALL PLOT (XL* XL.. i> 
Xl=XlA- O.bACLNtiiK _ 
X2*X2»»0.*.O*CENTEK 
k.ALL PLOKXI.* X2» Zl - 
XaXllt) ^ ^ 

CALL NOMbfeRlXl ._X-2* . O.tO 

10 continue 

hETUHN 
E NO- 

SUbROuTlNE STATIC 
LCMMON/CCE-F * /Ai2.-50)»-L 
COMMON/ NuM /N^rf-MNP .. N 
CuWMONXSCALEI/F-ACTRA . F 
COMMON/ t-H 10 /nCSlNE . S 
REAL lUC .... V 

A ANCE^LUC (NUMNP >«L0C( I ) 


LOC<bO) 

NbfiPLT 

FACTrtb 

SINE 


Xl) 

LOC-tSOi. 

NbRPLt 

EACTRB. 

SUvE 


LOCCSO) 

NEKPLt 

FACtKb 

slNE,., 







mu III ! IIUI . ipnippii iiA4«li 


ORIGINAL PAGH (3 
or POOR QUAkItY 


i.li^ uTlu-lTV 


.■> iJ I ;> J = In AA w L ✓ J • 0 

l)IjI -U'wC I 1 ) 
lHJ 10 

\ I- ( JLlil ♦ ( 1- I ) *UlU ;»T ) 4-taii INu*f -»^.TKu 

> ♦Sl-Nt ♦<-ACTKij 

V.ALU l-»LlJTvXlt J) 

X I - I U* 1 1. T ♦ 1 *UU 1 S T > ♦tUs> I NL * P A t TK t' 

X.;-l ul^T LST ) A^lNt ♦♦ A^lAB 

CAI.L.. FUuTiXLi X*:. 

10 CUNTINul. 
rttiTUHN 
UNO 

iiUuKUUTiNe TkjBuT 
CCMMON/uut^ /Ai^*4i0) . LCC(&0.) 

N,JMMUN/NtN« /NUNNP t- NuAPCT 
CUMMJ\> oCAUE l/FAuTKA • KACTWti 
CUMMON/TKIu, /CubiaVL » SlNfc 
CU.MMuN/TN jCNT/Mt-.fiiuO . TIMN .TlMAX 
kEAU uou 

riuTOaO. 100 
I bVM-3J 

OU jO i=l.NuMNP 
ISYMJil 
i N= 1 0^ i 

I OONTiNuh 

kEac'' ( In » b ) 4 I t r I Me»TKAJ I* TKA J*,’ 
o PlIkMATII 

IFlTlML .UT, TiMlN»uU TO I 
vl-TKAJl ihFaCTKA 
xO=^TKA>JO*>Ak.Th<A 

POb-uOu 4 I ) AF AcT^e 


u ALL 

u o l; K 0 ( p 0 b . X 4 • 

) 



4 P 4 \ 4 

• UT. 4000. .Of^ 

• X w • o T • 

1000 

. )STUP 

u All 

Pl U T 4 X 4 . X 0 , J > 




call 

JV M'>LL 4x4, XO . 

T » — J, f ; 

} • 0 » 

— u 


4 0 u ON T I NUt 

PhAO 4 1 1\ . b »t NO-00 ) I I . T 1 Mfc » TK Aj 1 »T'RA JO 

144TIMU .UT. llMAXJuU TC OC 

1 bV Mi= I UYM ♦ I 

X 1-TkAJ 1 »FACTKA 

XO-Tin.' J 0 «‘P AC Tk A 

PUS-LC!. 4 I > * P Au-T ri C 

UAUL UOaKA;4POs* xi. X04 

IP(xl- .«T. lOCJ. .UK» XO .UT. lOOO.ibTJV 
4. A4» L. Pu 01 4X1. X.». 04 

1FIIS>MI .Nt. ISY^iou TO 40 
4 »YM 4 - 4 

CALL U>y»jOL(X4. XO. MuT. 4.-- 0*0. -1) 

TO 4 0 
00 UONTlNOt. 

K ii A I Nt,' 4 N 
JO u w'N4 iNV^t. 
kuTUPN 
t Ni). 


WOO 


VOOaX 


r«>J Wi,UoKw^b PI'INI. 


LN^ OP Llbl uTiuJTV 


ORUail'lA*- IS 
OF POOR 
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A5 . 6 Samp le Ru n_ of th e 3-D Plotting Post-Processorsi 
A5 . 6 A ADINA Generate d Data 

The pecessar)i^ddta from tt^e modified version of ADINA was obtainexL 

through Fortran logieaT .unft. 20» The JCLoised- to allocate .ttils 

unit was 

//FT20F001 DD_DSN=USFR.MULTU ,DISP= (NEW^CATIG) .. 

// SPACE=CTRK»{T50»20)vRLSEK 

// UNrr=SYSDA,VOLrSER*ACADOT 

// DCB=(RECFM=FB,BLKSIZ£=12960,LRECL=80) 


A5 . 6B Post-Processor / JCl Requi rements 


The JCL required by the first post-processor program for this sample 
problem that contained three nodes along tl« shaft was:- 


// EXEC GOFORT 

//FT1TF001 DD DSN=USER.EFHPLTT DrSP=(NEW.GATLG),UNlT=SYSDA, ... 
// V0L=SE-R?ACAD01 »SPACE=(TRK,(50,5KRLSE)^ 

// DCB*(RECFM-fB,BLKSIZE=6160»LRECL=80) 

//FTl 2F001 -DD DSN=USEA. EFHPLT2 »DlSP= (N£W,CATLG) ,UN1T.=SYSDA, 

// V0L=SER^ACAO01 ,SPAC£=(.TRK,(50,S) »RLSE)» 

// DCB“ (RECFM=FB ,BLKSIZE=GT6O,LRECL=80) 

//FT13F001 DD DSN=USER»EFHPLT3,DISP=(NEW,CATLG),DNIT=SY5DA> 

// VOL=SER+ACADOI,SPACE=(TRK,-(50.5),RLSE) „ 

// DCB=(RECFM-FB,BLKSIZE=6160.LRECL=80).- 

//FT20F001 DD- DSN=USER,MULTLUDlSP=SH« 

//FT2TF001 DD .DSN=USER,EFHPtOT.DISP=(NEW»CATL6)»UNlT=SYSDA_ . 
// VOL=SER=ACAD01 ,SPACE=(TRK,,(50,5)»RLSE), 

// DCB=(RECFM-F&»BIKSI2E-6160.LRECL=80) 


A5. 6C Pos t-Processor / Input 

The user inputs to the first post-processor program for this sample 
was : 


0.0 90.0 0.3 
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A5 . 6 D Post - Pro ce s s 0 r 2 »_xia.J ?eau.lJfejne nts 

The JCL required 5y the second^iost=jicnrjessor. program for this- sample 


t 

i 


! 


was : 


// EXEC G0F0RT,G0SIZE=512K»PL0T= 
//FTllFOOl DO DSN=USER.EFHPLT1,i)ISP=SHR 
//FT12F001 DD DSN=USER.EFHPLT2,DISP=SHR 
//FT13F001 DD DSN=USER.EFHPLT3.DISP=SHR 
//FT21F001 DD DSN=US£R.EFHPLOT»DISP=SHR 


A5.6E Post-Processor 2 Input 

The user inputs for the second post-proces4oc pro-gram, for this sample 
run was: 

2C 35 
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A5.6F Post^^Processor 2- Output, 

Attached are some selected plots tha t were ohta-tned. during this 
sample run. 
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APPENDIX 6: NOMENCLATURE-. 


ORIGINAL i j 
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3j - Ca-rtesian Lag.rangi a4uXoordi nates . 

[B*] ‘ Matrix Coefficient's 
[B] 

[Cjj] - Tangential bearing, damping ma.trix. 

- ETeme4ital nodal force- matrix 
--e 

Fj^ --Bearing nodaT load 

fe - Elemejit body , force 

[K] - Global stiffnes-s 

[Kg] - Element stiffness 

[Kep]- El astic-pLastic stiffness 

[K.|] - Linearized stiffness 

[K^] - Dynamic stiffness 

Li. - Lagrangian strain tensor 
L^J 

[Mg] - Element mass matrix 

[M] - Global-mass matrix 

[N] - Shape fu4iction 

Pi »Po“ Inlet-outlet pressures of Damper Bearing 

R - Region occuppied by system 

Si i - 2nd Pi ola-Kfrchhoff Stress tensor 

$1 J 

t - Time 

Ui - Displacements 

y 

Y - Nodal displacements 

V - Volume 

aY - Incremental nodal displacement 

At - Time increment 

(S() - Va-jM-a-ti ora 1 operator 




- Density - 
( 0 - Col umn n 

[ ]. - Ma.t»:ix 

( )”** - Transpose 

f ) »t- Time d-i fferentiatlon 

L) 

T 

( )■ - Matrix Transpose 

II II - Eucl i di an Norm 
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APf>EM0IX 7: EQUATION DEB.Ntt I (W1 
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